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INTRODUCTION 



^^.^-yxnrpos& ©"fthis specification is to~pr"6yrde^a -»oi1c-\ 
ing document for the MICRODATA COBOL implementation. 1 O 
It is intended^o. be expanded at later date, and used as 
ajngintenanca-iuaiuiaJL. ^_^._ ....: J , 

Chapter 1 covers the design- of the product and some of 
• the rationale behind the selection of design approach. 

Chapters 2 and 3 deal in detail with the internal intri- 
cacies of the compiler: Compiler Data Structure, MOM 
Instruction Repertoire, Stack Management Technique, etc. 
Chapter 4. describes the seven phases of the compiler. 
Each phase is described chronologically and work files 
are discussed as the compiler creates or first: refart'noes 
them. 

Chapter 5 describes the generated object code and its 
interface with various tables at runtime. 

Chapter 6 is reserved for the runtime library descriptions. 
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PRODUCT OVERVIEW 

2. 1 Compiler 

The compiler is multiphase, i.e., modularly coded by 
compiler function and COBOL language division- It is 
also multipass in that it reads the user's program in 
its original and subsequGnt encoded forms luoro than 
once. It utilizes remdom access devices for the Storage 
of encoded text streams. The compiler will translate 
1974 ANS COBOL language statements into machine language 
Inatructions which will be output in the form of a 
relocatable object module which can then be loaded by the 
system loader along with selected runtime. I/O and library 
routines for subsequent execution of the user task. The 
compiler outputs listings of the user program along with 
various debugging aids to help the user in getting the 
program operational. 

2.2 Generated Code f^>Cl?ai2-V:? 

Due to the nature of the Mi^R^J-ft'&A. computer, it is not 
considered practical to attempt to generate in-line code 
for the majority of the functions of the COBOL language. 
The primary reason is that the MiCRODATA^computer is not 
a business oriented computer; that is, decimal arithmetic 
and string manipulation must be done with software. Because 
of this, the design of the COBOL object system includes library 
routines for performing most functions and compiler generated 
code consists of a series of calls to these routines. 

2 . 3 Implementation Language 

A special interpretive softv/are development language, 
MOM (Macro Operation Module), is used in the develop- 
'l ment of the compiler, 
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The MOM statements are similar to any Macro type 
language with one basic exception: instead of 
being expanded into in-line code, they are executed 
by an interpreted^ that decodes them and calls the 
appropriate subroutine to perform the MOM JEunction. 
This approach permits a substantial saving in main 
memory to be realized over standard assembly lan- 
guage programming approaches. 

Another advantage to MOM instructions is that they 
are designed to operate on dynamic stacks- Thus, 
their use allows most of the needed tabular information 
during compilation to be kept in main memory. This 
reduces the use of secondary storage for passing of 
information from phase to- phase and the attendant 
encoding and decoding of that information. The use 
of stacks not only speeds up the overall compilation,. 
but permits the spilling of tables to disk when main 
memory becomes full". This means the user can compile 
a sizcible program with a limited amount of memory. 

One final advantage to HOM coding is that it is clearer 
than assembly language coding. Therefore, it is easier 
to code and debug, and usually easier to understand 
the code of other programmers. 
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While there is some overhead for the decoding of 
each MOM the number of instructions performed 
during the entire compilation is actually fewer 
than with conventional assembly Icunguage coding- 
This occurs because: 
• o Stack management eliminates unnecessary 
reading, writing, encoding and decoding 
of text streams, 
o The powerful nature of MOMs, (average 
one MOM instruction equals 20 assembly 
language instructions) greatly reduces 
the number of overlays required in the . 
compiler. This translates to fewer 
loads, less sv/apping, less interface 
communication, fewer interface problems 
and ultimately fewer complaints from 
users when the product is released - 



2-3 

CA1.1FORNIA SOFTWARE PROOUCTS. INC. 



3. COMPILER DESIGN 

3.1 Compiler Interpreter Module 

3.1.1 Overview 

The MOM (Macro Operation Module) Interpreter is a group 
of routines and an interpretive control loop that simu- 
lates a hypothetical "compiling machine,". The core of 
the inter prete r is _the c ontrol loop which interprets 
iJSQB-AxistxxLGtJxiii^ , executes__tl]£jiu_..aiid.-ro^^ 
pseudo-instruction counter. The "MOM machine," is a 
stored program machine with single-address instructions. 
The primary difference between the "MOM machine" and a 
conventional one is the organisation of memory into a 
number of single memory locations plus a number of 
named stacks whose lengths vary dynamically during 
compilation. 

A stack is a last-in-first-out memory in v;hich the value 
most recently stored in the stack (the "Top") may be 
removed, exposing the value next most recently stored, 
and so on. Stacks are dynamically allocated and, if 
necessary, spilled to auxiliary storage and their contents 
may be searched, added to, or entirely deleted. 

The V7ork Stack, which is the principal operating element 
of the MOM machine, is special in that many MOMs address 
the top element implicitly, in addition to an explicit 
operand. The Exit Stack contains subroutine return points 
as well as the calling program's Answer Box setting. 
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The Answer Box is a tv;o-position switch" v;hich is set by 
some MOMs and tested by others. 

Cont:i:ol pseudo^^-nstructions deserve ^pecial attention 
here. The jump MOMs {J, JS, QJS, etc.) alter the MOM 
location counter. J (jump) merely resets the location 
counter. JS (jump to subroutine) and QJS (query jump to 
subroutine) perform the same function but in addition 
they create a link entry on a push-down stack called the 
Exit Stack. The execution of PX (pop and exit) causes 
the most recent entry on the Exit Stack to pop up and it 
is used to reset the MOM location counter. 

3.1.2 Basic Interpretive Data Structure 
Inherent to the design and understanding of the MOM 
interpreter are basic data structures either referenced 
as MOM instruction operands directly, or maintained by 
the various MOM subroutines. 
1. Work Stack 

The top location of the work stack is referred 
to as WO, the next to the top location is referred 
to as Wl and so on. Many MOMs refer implicitly 
to WO. TWO operations basic to many MOMs are 
••fetch" and "pop". F etching i s the operation of 
extending the work stack by one location, so that 
what was WO becomes Wl, etc., and copying the 
value fetched into the work stack as the new 
value of WO. Pop ping i s the operation of reducing 

3-2 
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the length of stack (by one or by some stated 
amount) . Popping one location from the work 
stack makes what was Wl into WO, etc. This oper- 
ation is what is referred to when the term "pop" 
is used v/ithout qualification. 
MOM Subroutines and the Exit Stack 
Although only a minority of MOM subroutines are 
actually recursive, MOM coding is usually done 
in a way to facilitate recursion, since it some- 
times happens that a routine written to be non- 
recursive becomes recursive as a result of modifi- 
cation of program specifications or implementation 
strategy. Thus, all MOM subroutine calls are 
potentially recursive. The effect of the jump to 
subroutine MOM (JS) is to lengthen the exit stack 
by one pc> o - 3: ' tio ft and store there the location of 
the MOM follov;ing the JS. The "exit" operation 
retrieves this return point from the exit stack 
and reduced the length of the exit stack by one 
p^ilLlun. 
Answer Box 

The Answer Box is a two-position sv/itch set by MOMs 
whose mnemonic names begin with Q. It affects the 
execution of MOMs v;hose mnemonic names end with :T 
and :F suffixes. A MOM with a :T suffix, such as 
J:T v;ill be executed if the Answer Box is set True 
and performs no operation if the Ansv/er Box is sot 
False. The suffixes :T and :F may only be appended 
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to Conditional MQMs . • "The Answer Box xs saved 

on the exit stack so that each subroutine level 

has its own answer box. This means that ordinarily 

invoking a subroutine does not affect the Answer 

Box in the calling routine. The exception is a 

subroutine which is called by the QJS MOM and some 

XEC routines which are expected to set the Answer 

Box. 

String 

Each COBOL symbol is formed in the string area by 

QQ or QQA MOM or an XEC routine and is in packed 



bias 38 internal code. The symbol is hashed from 



the internal code and the hash is used as the argu- 
ment for reserved word recognition and also for 
COBOI. source symbol collection. 
5 . Common 

The Coiranon area is used primarily in conjunction 
with constructing and then registering of a group 
into a stack. The Common area is referenced 
implicitly by the REGF MOM and explicitly by others, 

6- Field 

The Field area is used primarily to implode from 
or explode into the information. It is referenced 
implicitly by IHPL and EXPL MOMs and explicitly 
by others. 
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7. Internal Representation of COBOL Words 

Valid COBOL word characters are assigned values in 
the range through 37 as follows: 

Blank 

1 Hyphen 

2-11 Numeric Characters (0 to 9) 
12-37 Alphabetic Characters (A through Z) 
A three-character symbol is packed into a half-^ 
word according to the algorithm: 
((Cl*38)+C2)38+C3 where Cn is the assigned 

character value 

8. V70, Wl, W2 etc., as MOM Operands 

A line containing a MOM operation code v;hich refer- 
ences memory may have as its operand a symbol of 
the form WO, Wl, W2 standing for the current top 
v;ord of the work stack, etc. When such a line is 
translated, the operand will reference a fixed 
location in the compiler data area. The execution 
of a fetch or pop type of MOM will lengthen or 
shorten the work stack. Only five ^al^-zords of the 
work stack (WO - W4) are kept in the fixed area. 
The rest of the stack is dynamic. (S2i-i±Mt-i^^i?M:i^^ 
9. Stack PointeT '~~'' 

A position in a stack can be indicated by giving the 
stack number and the distance in groups from the 
bottom of the s t ■? c I'.^y^ These tv;o values, stack nvimber 



and group nximber, are combined togetlier in a i 

dU, -^^yUoJ- ^WvVUX^. ^^^^f ^' r^J^RN.A SOFTWARE PRODUCTS. ,«c. 



single element called a "Stack pointer". The posi- 
tion indicated by a stack pointer remains effective 
even after the stack management routines have re- 
arranged stack memory. 
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Stack # 


Group # . 



^ 



^ 
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10. iiarmark 



S: 



11. 



An Earmark Is a data structure that is used to 
interrogate j ^B-^ e fi.n o o"y~dclG»q ' \ a specific character- 
istic of an ^j a rmaj g l t value in the top gialj word of the 
v/ork s tack. ^s'peci fie MOMs reference Earmarks as 




their operand value. Earmarks consist of tv;o C^alf^; 
words: a mask and a value - 

15 




Mask 



A bit pattern used to isolate the 
trait value in the stack trait v;ord 



Value A bit pattern used to compare trait 
values after isolation 

Character Scanning 

Character Scanning is performed during the syntactical 
analysis of COBOL source input. The primary routine 
in control of scanning is named NXTCHR. Calls to 
NXTCHR can be m.ade either by the character handling 
MOMS (QC, QQ, etc.) or directly in XEC MOM. NXTCHR 



returns the next valid COBOL chai^5g,{;5y;„^ji*^A§ 
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responsible for source sequence, comment, debugging 
and continuation card processing. Several variables 
are maintained during the COBOL source input scanning 
to record the information being scanned and the 
position of scan. At all times, the variable 
CRNTCH holds the source statement character v;hich 
is currently being inspected. The position of the 
current character within the input record is ■ 
recorded in a variable CHPOS. T'^ po^J-'-fre^ Sj-t^ o^jaaJi^^t- 
12. Stack Statistxcs ^• 

Associated with each COBOL stack is a group of 
information items called stack statistics. 
Stack statistics consists of the following entries. 
1. - De ar c h size 



2-. H^iAA^ry C(>Y 



H 4- Disk word count / ' ^ li 

5^8. Group size 




^ 



Group size is a count of the number of words in 
each stack group^^^ry 

C£^iG'top and ccu:^ bottom are addresses that define 
the extent of theyv^ soro - resident portion of a stack. 
Core ' top is the address of the first word on the 
next group to be added to the stack. When .g^^:^'^ 
top equals oare 4)ottom, the stack is empty. 
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Gere 'top of stack n can never be larger than 
l^SSl^ottom of stack n+1. When an operation on 
Stack n would cause co^ top of stack n to exceed 
'"©e^efeottom of stack n+1, the stack management 
routines reallocate the stacks to allo^-x stack n 
to grow. 

Disk word count is the number of words from the 
■ stack that have been written to disk- When disk 
word count is zero, the disk resident portion of 
a stack is empty. Most stacks are initialized 
in the empty state; that is, disk spill count 
equals zero and ©ei?e top equals ee3?e bottom. 



JLt^yvtJ^ 



fi^ 



Co JCax ^yuX'Tt^J'C/xy /]i- ^^lOT^TvU^ 



,aJiayi^y{%^ (^(OS/^CA*) o^p4jxa.Tib^ . 




13. Data Base 



nU ^ 



Wn 



Common n 



Field 



Phase independent 
variables 



Phase local var- 
iables 



Constants 



Earmarks 



X'OO" 



saine for all phases 

,. physically not replaced 

after phase 1 



X'80' 



pha = e viependent 
variables & constants 



3.1.3 MOM Instruction Format 



• MOM instructions are made up of an Operation 
Code and an Operand Field 
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Operation Code 


Of ^rand 



Operation Code 






-^ 



^-^t^^-vzjj .Jc.A<_ .-^t^ ^ i gr . <r ^ - ,J^yn 



,r? Mdn^ 









£1--^ Vf^J-C^i^ ^ ^*-'^ 



y 






^V-c^^-^?~?^u/~; 



-J-Zl' , 






•c/ J^^^ds^ aJijAy^^ JL^r^ 



y<:2't-'-^iT^-CjA . 

.^^-^Z^^ Ci^Lccy^ "^^^^^f^. 



b. Operand Field 

The Operand Field is a nine-bit field that 
addresses static storage, data structure, 
stack number, character constant or immediate 
value. 
3.1.4 MOM Instruction Repertoire Description 
3.1.4.1 Operand Type 

The following list defines the operand functional 
codes: 

1. A Static memory cell address 

Static memory cells are grouped under -4a::f"^^<Ji ^^-T^'*' 
base. The address A is word relative to 
that base. The maximum size of A is 511. 
WO through W4 are static memory cells. 

2. S Stack number 

Stack numbers are immediate data 

3. R Rung 

Rung number is immediate displacement 
value into the stack group. 

4. C Character is immediate eight-bit display 

format character representation. 

5. E Earmark address 

Earmarks are under the static base. 
Earmark address is a word relative dis- 
placement into the base. 
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6. F Flag number aibafctg- 

^: 

7. P Pattern address 

Patterns are under the static base. 
Pattern address is a word relative 
displacement into that base. 

8. SJ Self relative jump 

A self -relative word address is ©-i=H»e* ^T«_<tn>v+W.K 

9. J Jump Address 

■ A jump address is either local or global - 

A local jump address is*^ess than 512. 

A global jump is an index into a jump table 

of 16-bit addresses. 
10. N Number 

is immediate numeric data. 

o In the descriptive paragraphs, an arrow ^ 

denotes replacement of the contents of the 
location on the right by a copy of the value 

on the left. "SJ > MOM Location Counter" 

means that the MOM location counter is incremented 
by SJ. 

Parentheses around an expression denoting a 
memory location denote the contents of that 
location. The phrase "nev/ WO" indicates that the 
v;ork stack is lengthened so that the previous 
(WO) becomes (VJl) . The phrase "pop one" means 
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that the top item is removed from the work stack 
and (Wl) becomes (WO) . The phrases "set True" and 
"set False" always refer to setting the Answer Box 
state either True or False. 

The use of the vector operator, , indicates that 
the value must be a stack pointer. The expression 
(A) refers to the location pointed to by the 
pointer in location A. 
3.1.4.2 MOM Instruction Descriptions 

1. Add 

ADD A 

(WO) + (A) -> WO 

2. Add to Memory 
ADDM A 

(WO) + (A) -> A 

3. Add to Memory and Pop 
ADDMP A 

(WO) + (A) — ^ A and then pop one 

4. Logical AND 
AND A 

(WO) A (A) — -> WO 

5. Diminish and Jump 
DIM J SJ 

(WO) - 1~>W0. If (WO > O), -H^i-^^ 
^ump, otherwise pop one and 
execute the next MOM in sequence 
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6. Divide 

DIV A 

(WO)'/ (A) — -> WO 

7. Exclusive Or 
EOR A 

(WO)-fc>-(A)-> WO 

8. Error Diagnostic 



ERR 



55<l/2. *^^^^ fl^ Ar«<j'^*tidiE_ 



Jx. 



N 

to 
. Place Error Code , N , and 

statement number in EX-file 



o^-Hm. +6kci^ i^V^- rii^«»^-^ \9. Empty stack 



ES S 

Stack S is made empty 

10. Explode Fields 
^ EXPL P 

(WO) is exploded into fields, 
FIELD n, according to the 
field pattern, P, then pop one 

11. Fetch 

F A 



(A) — -> New VJO 



Cr 



j^ 



i}' 



/ 



12. Fetch Immediate Le& 
FIL N 

X'NNOO' ^ Nev/ WO 



{.-- 



13. Fetch Immediate Right 



FIR 



N 



X'QQNN' ^> Nev/ WO 
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14. Fetch Pointer to Top Group 

FPTG S 

Zero rung pointer of the current 
top group — -> New W 

15. Fetch RalativG 



FR R 



— > 

( (WO) + R ) ? New WO 



16. Implode Fields 
^_ IMPL P 

IMPL is the inverse of EXPL; 
the destination word is new WO 

17. Jump 

J SJ 

SJ ■> MOM location counter. 

The next MOM to be executed 
is at location SJ. 

18. Jump to Subroutine 
JS J 

The current MOM location counter 
is pushed onto the top of the 
exit stack- The ANSWER BOX is 
also saved on the exit stack and 
will be restored when control is 
returned from the subroutine. 
Finally, J — ^> MOM location counter 
The next MOM to be executed is at 
location J. 
1 9. Multiply 

MPY A 



(WO) * (A) - > V.Q 

' CALIFORNIA S 
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20. Or 

OR A 

(WO) V (A) — -> WO 

21. Or Memory and Pop 
ORMP A 

(A) V (WO) — >A, PopI(3»V00 

22. Pop and Jump 
PJ SJ 

Same as Jump except WO is popped 

23. Push to Stack 
PSH S 

The stack S is extended one new 
rung with (WO) ,^, ,^ r^ / : rr ■ 

24. Push to Stack and Pop 

n psHp s 

The stack S is extended one new 
rung v/ith (WO) , then pop one 

25. Pop V7ork Stack 
PW N 

Pop N words from the Work Stack 
25. Pop and Exit 
PX N 

N entries are popped from the 
Work Stack. The top entry of 
the exit stack is popped to 
define the now value of the l\OA 
location counter and, if the 
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27. 



28, 



29. 



30. 



31. 



V 

JS MOM, a new #alue of the 

ANSWER BOX. 

Publish Character 

PUBC C 

Output character to the print 
buffer 

Publish 

PUBL A 

Output the character string to 
the print buffer- The address A 
is the address of the string to be 
published. The first word of the 
string is a character count; re- 
maining v7ords contain the charac- 
ters two per word. 

Query Adjust Pointer 



QAP 



Query Bit 
QB 



N 

(WO) + N — > VJO. If (WO) is a 
valid pointer, set True. Other- 
wise, pop one and set False, 



K 



If Bit N of (WO) is on, set True; 

otherv;ise set False. 

0:^N— 15 

Query Character 

QC C 

If C equals CRNTCH , sot True. 



3-15 



Othsrv/iso, set False. 

CALIFORNIA SOFTWARE PRODUCTS. INC. 



32. Query Character and Advance. 
QCA C 

If C equals CRNTCH, set True and 
advance to next character positior 
Othen^^ise, set False. 

33. Query Character, Space and Advance 
QCSA C 

If C equals CRNTCH and CRNTCH is 
followed by space(s) , 'set True 
and advance to next character 
position. Otherwise, set False. 

34. Query Earmark 
QE E 

If (WO) ACe)= (E+1) , set True, 
Otherwise, set False. 

35. Query Earmark and Pop 
QEP E 

If (WO)A^)= (E+1), set True. 

Otherwise set False. In either 

case, pop one. 
35. Query Equal 
QEQ A 

If (WO) = (A) , set True, otherwise 

set False. 
37. Query Fetch 

QF A 


If (A) is non-zero, (A) — ^Nev; WO^^ 

-&et Answer Box to True. If zero> 
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38. Query Fetch Relative 
QFR R 



— > 

If ((WO) + R) is non-zero, 

((WO) + R^ New VJO. Set Answer 

— > 

Box to True. If ((WO) + R) is 

zero, set False. 

39. Query Flag 
QFL F 

If Fth Flag is one, set True. 
Otherwise, set false. — F-^63 

40. Query Jump to Subroutine 
QJS J 

The current MOM location counter" 
is pushed on the top of the exit 
stack. The Answer Box is not 
saved. When control returns from 
the subroutine, the Answer Box 
will contain the value last estab- 
lished in the subroutine. J— ^ MOM 
location counter. The next MOM to 
be executed is at location J. 
41. Query Less or Equal 
QLE A 

If (W0)::^(A), set True? other- 
wise, set False. 
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42. Query Quote 

QQ Q . - 

Q Is the number of a reserved 
i<l . word In the Reserved Word Table. 

If the current "source string 
matches the reserved word pointed 
to, the following steps are 
performed in orderr 

1. If the Coinna Flag Is still 
on> Issue a diagnostic and 
reset the Coinna Flag. 

2. Hove T (trait) field to 
Trait Word. 

3. Set Answer Box True 

• 4. Set QQ performed flag 
Otherwise set the Answer Box False 

43. Query Quote and Advance 
QQa' q 



Q is the number of a reserved 
9 word in the Reserved Word Table. 

If th* 'rurrent source string 
matches the reserved word pointed 
to, perform the following: 

1. If QQ performed flag is on, 
■clear the QQ perforned flag. 
Otherwise, perform 1 through 
3 as described in QQ. 
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2. Check FIPS level and issue 
diagnostic if required. 

3. Set COyMA FLAG if \* or •;' 
precedes the word. 

4. If P (fonowed by a period bit) 
Is off, go to b). Otherwise, 
check a period and a space 
follows. If not, issue a diag- 
nostic. ../ 

5. If A (area A bit) is on, check 
to see that the word is in Area 
A. Issue a diagnostic if the 
word is in Area B. 

6. If M (Both Area A and B allowed . 
flag) is on, set the Area A Flag 
if the word resides in Area A- 

7. If neither A nor M is on, and 
the word resides in Area A, issue 
a diagnostic. 

8. The current scanning pointer Is 
advanced. to the next space char- 
acter 

Otherwise, set the Answer Box False. 

44. Query Search 

QSRCH S - - . - 

■7 - " • 

t 

Stack 5 is searched for a group 
n matching CO^WOPJ. If one is found, 
the Answer Box is set True and a 
pointer to the group is placed 
■in a new WO. Otherwise, the 
Answer Box is set False." 
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2. Set the Answer Box to^True") 



3. Set COiMf'IA FLAG if/',' or •/; • 



/, 



y 



follows the v;ord 

The current scanning pointer. 



CHPOS^-^is advanced to thd 
nexl: space character 
* Otherwise, set the Answer-Bojq Fal£ 
,jDuery Search 
QSRCH// S 

Stack S is searched for a grouV 
matching COMMON. If one is found, 
the Answer Box is set True and 
pointer to the group is placed 
in a new WO. Otherwise, the 
Answer Box is set False. 



Query Take off Top 



4 6. 



QTT S 

If the Stack S is empty, set 
False. Otherwise, pop the top 
rung of Stack S and place it 
in new WO and set Answer Box True* 
Register and F-^tch Pointer 



REGF 



-7 



The content of COMT-ION is placed 
on the top of Stack S^nd a pointex 
to hh a LxLiib-JMXKd . (i ^ the entry is 
placed in a nev; WO^ 
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4 7. Reset Flag 

RFL F 

Reset the flag specified by F. 
0::^F— 63 
4 8. Replace 

RPL • A 

(A) — >W0 
4 9- Replace Relative 
RPLR R 

((WO)+R)— ^WO 
50- Set Flag 

SFL F 

Set the flag specified by F. 
0— F— 63 

51. Shift Logical Left 
SLL N 

Shift (WO) left N bits 

52. Shift Logical Right 
SLR N 

Shift (WO) logical right N bits 

53. Store Relative 
SR R 




,, — > 

(WO) — -> IMWl) + R and pop one 



54. Store 

ST A 

(WO) — >A 
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55- Store and Pop 
STP A 

(WO) — >A and pop one 
56. Store Relative and Pop 



57. 



58, 



SRP 


R a/ 




(WO)— >|^('w 


Subtract 




SUB 


A 




(WO) - (A) 


Switch 




SWT 


A 



'{\(W1)+Rp), then pop two 



59, 



Tab 

TAB 



60. Tally 
TLY 

61 . Execute 
XEC 



WO 



(WO) — >A and original (A) — > WO 

N 

Set current output position to 
. colunm N 



(A) + 1 > A 



N 
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XEC is a generic name for any- 
interpretive instruction which 
does not require an operand. The 
instruction subroutine address 
located at the Nth element of the 
XEC jump vector is executed just 
as any other interpretive instruc- 
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tion and control continues v.'ith 
the next MOM 

62. Index Next Instruction 
XNI A 

(A) is added to the operand of 
the next MOM prior to execution 

63. Zero Memory 
ZM A 

0— ^A 
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3.2 Stack Management Concept 

One of the major advantages of a compiler that oper- 
ates interpretively is that the procedural code takes 
less memory than is the case with compilers that employ 
in-line assembly language code. This means that more 
memory is available for keeping tabular information 
about the source program and that much less data 
needs to be written out to secondary storage. This 
saves time and secondary storage space. 

The MOM language is specifically designed for 
inanagemant of information kept in "stacks" in 
memory- Some of the major stacks kept by the 
compiler are: 

Symbol Table A record of the definition of 

each unique symbol presented in 
the COBOL source program 

Data Stack Describes the characteristics 

of data items in the source 
program 

Procedure Stack Describes all procedure names 

defined in the source program 

Pile Stack Describes all of the file names 

used in the source program 

Stacks are primarily constructed in Pass 1. They are 
utilized in all of the passes. There are generally 
three classes of information needed by the compiler 
during its operation: (1) information of global 
interest to more than one phase, (2) information of 
local interest, usually needed only sequentially and 
infrequently, and (3) compilation control information 
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(compiler options) , The first type (type 1 in- 
formation) is kept in stacks. Tjrpe 2 is oxatput 
to files to be used in siibsecruent phases. Type 
3 is kept in bit tables in special data bases 
and queried as required. These tables are also 
kept in memory and are utilized throughout the 
compilation . 

MOMs v7ork by moving information between stacks and 
a work stack. Items in the %irork stack can be ex - 
ami ned^ __ stored, tested and evaluated . The wo rk 
stac k operates like a series of registers but 
with push/pull capability. The MOM language has 
a great deal of machine independence built into it. 

The. stacks all share a common memory pool as shown 
in Figure 3-3. 

high stack 
address 





SYMBOL TABLE 




t 




STACK (DATA) 




1 




STACK 1 


lov.' stack 
address 


^ 


STACK K 



Figure 3-3. ^t^CK AT-T-or^AT joxT-. 



3-25 



CALIFORNIA SOFTWARE PRODUCTS. INC. 



The Syinbol Table, shown in Figure 3-3, grov;s dov; n 
f rom the top of stac k memory; the other stack s 
gro w up from the bottom of tneitiory . Stacks can 
be dynamically rearranged (squeeze) when more 
■space, is required for an individual stack. If 
this operation does not provide enough space, 
then the Data Stack, ic - s p i lled to d j . - £>k> - *Su/-v4r»^ Ti 

"X^JUUL -fKAJL?. 5f<x<lA-^ CLO/w ^nAve "v-t>Cfc*o^ i^^^-v-^^KLtH, 
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Y^^"^ 



V'^:X^ 



3.3 Stack Descriptions 

3.3.1 ACC Stack C "^^C^^ ^^ f-^Ut.^ <^ ) 

The ACC stack contains information for each binary 
pseudo-register whose contents are recognized by code gen 
phase for optimization. 

There are eight groups on the stack. Each pseudo-register 
is represented by the corresponding nxmibered group ^ 





1 
5 


1 
_4 


1 1 i 
.3.. 2 .1 


1. 

9. 8. 7. .6. .5 4 


I. .3. .2.1 


word . 






Contents 


1 


Name 


2 


U 


D 


L 



Contents - a pointer to the item which is in the register. 
In most cases, the * contents * pointer is 
either a Data or Triad stack pointer. 



Ncune 



contains the stored pointer of an assignment. 



U = Used coxint. The number of times the value in the 

register is used. 
D = decimal position 
L = length 

For example, A = B + C is recorded in the stack as follows: 
Triad pointer of B + C in 'contents' 
Data pointer of A in 'Name* 
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3.3.2 Array Stack C St^-c.^ ^; ifUs^ I^T-jS^^^J 

The Array stack is used to collect the OCCURS clause 
information. It is built along with the Data stack 
for table items and is accessed via the Data Stack- 



rung 
1 
2 
3 
4 



n-1 



n 



I 1 1 1 1 1 
5432109876543210 




FROM OCCURS # 



TO OCCURS # 



DATA POINTER of OD 



Number of keys (=n) 



Data Pointer of key- 




Data Pointer of key 



n 



iterate 



Where FROM occurs # = minimum occurrence number 
TO occurs # = maximum occurrence numier 

= if no TO option 
Data Pointer of OD = DEPENDING ON data item pointer cAj 
S = 1 ASCENDING 
= DESCENDING 
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3-3.3 Copy Replacing Stack 



The Copy Replacing Stack is used as a temporary hold area 
for strings to be replaced and the replacing, strings- As 
each word in the source stream is encountered, it is com- 
pared to all of the "replaces" stored in the stack. ^-Jhen 
a match is made the "replacer" is substituted in the source 
input text. The Copy Replacing Stack is built and used 
in the first pass- 



1 
5 



<c 



1 

4 



S (Optional) 



^ 



Where A = REPLACING string 
= 1 BY string 
L= Byte size of S 
S= String (up to 256 bytes) 
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3.3.4 Data Staclc C^^e^ Oj pA^t-*^ I-?} 

This stack records the definition of each data-nanne/condition - 
ngjn e/index-name in the order of COBOL source presentation ^ 
The stack is used by all phases and is likely to have the 
highest activity. In addition to named data-names, the 
FILLER items described with 01 level, OCCURS and/or VALUE 
clause are also registered. . 'Q^^'^ A^^ ^ ^ 



3.3.4.1 Data-name, parse 




111111 

54 3 "2 109876543210 



Rung 


Level 


Base 


G Trait 


1 


Displacement 


2 


R 


Y 


S 


.ip 


Z J 


F 


u 


X 


Class 


3 




V 


A 


■^ 


c 


not used 


4 


Length 


5 


Qualification Pointer 


6 


Array Pointer/File Pointer 



Level = level 77 

= 1-49 level 1-49 

= 50 level 66 (RENAMES) 

=51 RENAMES edited item 

Base « Linkage Section 

= 1 File Section 

= 2 Working-Storage Section 

= 5 Report Section 

= 6 Compiler-generated registers 

= 7 Condition-name/lndex-narne 

G =1 Procedure-name reference 
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Trait = not used 

" 1 DATE 

= 2 DAY 

= 3 Tllffi 

= 4 PRINT-SWITCH 

= 5 DEBUG-ITEM 

= 6 DEBUG-LINE 

= 7 DEBUG-NAt'lE 

= 8 DEBUG-SUB-1 

= 9 DBBUG-SUB-2 

=10 DEBUG-SUB-3 

= 11 DEBUG-CONTENTS 

= 12 LINAGE-CGtrtJTER 




= 13 <^ft^*=CQUNTER ^ _ ^ il 

- 14 ,^®FCOUNTER 
Base = 7 tF 
Trait = 1 Condition-name 

= 2 Index-ncune 

= 5 Condition-switch 

Displacement = 

o before the record resolution 

a. if R = 1, redefined Data pointer 

b. if Level = 50, Renamed Data pointer 

c. for others, not used 

e after the record resolution 

a. if Base = (Linkage Section) , contains the 

byte displacement of the item from the level 01 item. 

b. if Base = 1 (File Section) , byte displacement 
from the file base 

c. if Base = 2 (V7orking-Storage Section) , byte 
displacement from the v/orking-storage base. 

R = redefined flag in phase 1 

= debugging item flag in phase ^ 3 
y = no SYNCHRONIZED 

= 1 SYNC RIGHT 

= 2 SYNC LEFT 
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L = sign is TRAILING 

=1 sign is LEADING 
P = sign is not separate 

=1 sign is SEPARATE 
2 = X BLANK V7HEN ZERO 
J = 1 JUSTIFIED RIGHT 
F = 1 FILLER item 
U = 1 USAGE specified 
X = subscript level, :^ X £ 3 
Class = group 

= 1 alphabetic 
~ 2 alphcinumeric 
= 3 numeric (DISPLAY) 
= 4 packed decimal {COMP-3) 
= 5 binary (COMP & COMP-4) 
= 6 index (INDEX) 
= 10 alphabetic edited 
~ 11 alphanumeric edited 
= 12 numeric edited 
V = Value class 

Value not specified 

1 not used 

2 alphanumeric 

3 numeric 

A = Variable length 

D = OCCURS DEPENDING item 

C = PICTURE clause specified 
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Length = 

for variable group items, it contains the maximum 
group length 

for numeric items, 

- Bits 15-10 contains the number of decimal 
positions. 

-18 <^ Decimal £ +18 when Decimal is <0, the 
assumed decimal position is [ D j digits to the 
right of the itera. 

- Bits 4-0 contains the logical length. Maximum, 
is 18. 

for non-nvimeric items, it contains the logical 
length. Maximum is 32K characters. 

Qualification pointer = 

for qualified data items, it contains the Data 
pointer of a synonym item that precedes the item 

for all others, it contains zero 

Array Pointer/File Pointer 

for OCCURS item, it contains the Array pointer. 

for Level 01 items in a file record, it contains 
the file pointer. 
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3.3-4.2 Data-name, after allocate phase 



Rung 
1 
•2 
3 
4 
5 
6 



. Same 


as 


Parse 


Location 


Same 


as 


Parse 


DD Location 


Same 


as 


Parse 


Mask Location 


Same 


as 


Parse 



where Location is 

• byte address of the item if not in the Linkage section 
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3.3.4.3 Condition-name (level 88 item): 



Rung 
1 
2 
3 
4 
5 
6 



111111 
5432109876 5 4 3 2 10 



Conditional Variable 



Procedure pointer of subroutxne 



not used 



Condition Qualification 



not used 



where 

Conditional Variable = Data stack pointer of conditional 
variable item. 

Condition Qualification ^ Data stack pointer of condition- 
name qualification chain. 

Procedure pointer of subroutine = compiler-defined pro- 
cedure pointer to the condition closed subroutine. 
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3.3.4.4 



Condition-name switch status: 



111 

5 4 3 


111 
2109876543210 




_ ! ' Jl__ ^ J 


Switch Condition 


Switch Nuniber 




not used j 



Rung 
1 
2 
3 
4 
5 
6 

where 

Switch Condition 

s= , OFF status 

= 1 , ON status 

Switch Number 

= 1 -BW4- SiOlTCH — l 
- 2 6W* ^\a)ITCH-''2- 



= 16 asa^ $wiTt.tf-i^ 
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3.3.4,5 



Index-name (INDEXED BY) 



Rung 
X 
2 
3 
4 
5 
6 



111111 

5. 4 3 2 1 


9 8 7 


6 


5 4 3 2 10 




7 




2 


Associated Data Pointer 


XD Location 


• 

not used 



3-37 



CALIFORNIA SOFTWARE PRODl.'CTS. 1 N i. 



3.3.4.6 Report Writer Items 

3.3.4.6.1 Report Group (01 Level in Report Section) 



> 

•3 

s 





i / / I / / 

5" H- 2 ^ I c '7 f 7 d 6" 



^ 3 '^ 



/ 



s- 



^ur,i 6r- relc^-^-'^P /''" 



yf^^ 



I €. Of' 



R^^or-h Tr^-ft COH^^I ^/P£ ;^/ 



$paJU. 



/^^fo y f <^yo op p-i-bCScLuM. f><i ", t^cl^ 






Type = 


X'OO' 


DE 


(Detail) 




X'Ol' 


RF 


(Report Footing) 




X'02' 


PF 


(Page Footing) 




X'04' 


CF 


(Control Footing) 




X'08' 


CH 


(Control Heading) 




X'lO' 


PH 


(Page Heading) 




X'20' 


RH 


(Report Heading) 


Sum of 


relative line 


:= 


absolute LINE NUMBER is 



report group 

sum of relative line number specified in 
the report group. (i.e., sum of PLUS LINE 
integers.) The nuiaber is used by report 
writer routines to perform the report 
group fit test. 
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Report Trait 

Bit 15 = CODE 

Bit 14 = CONTROL 

Bit 13 = PAGE 

Bit 12 = TYPE 

Bit 11 = NEXT GROUP 

Bit 10 = LINE 

Control # 

When TYPE = CH or CF, the CONTROL niiiabers are sequen- 
tially assigned from major to minor. (i.e., FINAL 
will always be ^ if specified.) 



DE # 

When TYPE = DE, the number associated with each DEs 
is assigned in the order of presentation. DE # > 0. 

USE REPORTING procedure pointer 

Procedure pointer to USE FOR REPORTING declarative 
section 

Report Group procedure pointer 

Procedure pointer of compiler-generated subroutine 

for the report group that performs the moves and writes 

as implied by VALUE, SOURCE, COLUMN and LINE clauses. 
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3.3-4.6.2 Non Report Group 

o Other report writer levels (not level 01) 



111111 
5432109876543210 



Rung 


Level 


5 


— 1 
1 





1 


Column number 


2 


[> 





S 





Z 


J 





u 





Class 


3 


Decimal 


Report Trait 


4 


Length 


5 


Qualification pointer 


6 


Data pointer of report group 



Report trait 



Bit 9 = VALUE 

8 = PICTURE 

7 = JUSTIFIED 

6 = BLANK WHEN ZERO 

5 = COLUMN 

4 = GROUP INDICATE 

3 = SOURCE 

2 = SUM 

1 = RESET 

= UPON 
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3.3.4.6.3 Control Save Item - Report Writer 

The data stack group of CONTROL item is copied to 
the control save group and a new data location is assigned. 



Rung 
1 
2 
3 

4 

5 

6 



Same as CONTROL item 



DD Location 



Same as CONTROL item 



Procedure pointer to RESET or 



3-41 



CALIFORNIA SOFTWARE PRODUCTS. INC. 



3.3.5 Data Debug Stack (^5-\'ack ^j fViaicz 5") 

In al-lo g d -b e - phase, the symbol string of all identifiers 
(data-name and its qualifier) which are specified in 
the USE FOR DEBUGGING statements are allocated. The 
stack is used to collect the addresses of these symbol 
strings. 

11' 

5 4 



Rung 
1 
2 



Data Pointer 



Procedure Pointer of Declarative 



Symbol Location 



not used 



where A = ALL REFERENCES 
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3.3.6 Data Line Number Stack CSfdcW. ^ j 'fWo.^^ 

The Data Line Number Stack is used to temporarily hold 
the line number and the column number of each data and 
filler item described in a given 01 level record. 
Although the stack is emptied after each level 01 record 
resolution, a direct correlation exists between this , 
stack, and the Data stack. ^ 



Rung 
1 
2 



Line Number 



Symbol table pointer 



Column Number 
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^£Y^ 




3.3.7 DECA Stack (Stack ? , fka5d Cy^ 

The DEGA stack contains information for each decimal 
pseudo- register whose contents are recognized by code gen 
phase for optimization. 

There are eight groups on the stack. Each pseudo-register 
is represented by the corresponding numbered group. 



word 
1 
2 



1 1 1 1 . 1 .1 

54321098765 


4 3 2 10 


- 

Contents 


Name 


U 


D 


L 



Contents - a pointer to the item which is in the register. 
In most cases, the ' contents ' pointer is 
either a Data or Triad stack pointer. 



Ncime 



contains the stored pointer of an assignment. 



U = Used count. The number of times the value in the 

register is used. 
D = decimal position 
L = length 

For example, A = B + C is recorded in the stack as follows 
Triad pointer of B + C in ' contents * 
Data pointer of A in 'Name* 
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3.3.8 File Stack ( 5tack 2^ fiva.6'^t> 1—1^ 

The File Stack is created in parse phase and used by 
others. It contains all pertinent information relating to the 
files declared by the user in the source program. 







6 

7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 



111111 
543210987 



j O I A (p{f 



^^ 



6 5 4 



B 



L R 




MAq 



^0;^t>Pt^ 



Block Size 



Record Size 



Data pointer of Record Area 



Data pointer of File Status 



Data pointer of LINAGE-COUNTER/ 
-RELATIVE KEY /RECORD KEY 



"Jt'roceclure pointer or 
Error Declarative 



Procedure pointer of 
DEBUGGING 



l^\U-jA£i.y>l£^ 



•tf^^^^?^ 



S 






ODD 
ij 2} 3 



Number of RESERVE area 



RERUN number 



CODE- SET alphabet-name 



Data pointer of ALTERNATE KEY 1 



Data pointer of ALTERNATE KEY 2 



Data pointer of ALTERNATE KEY 3 



LINAGE pointer/number 



FOOTING pointer/number 



TOP pointer/number 



BOTTOM pointer/number 
Spare 
Spare 



J^'^cov'S 6^^^ 



'^ 
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where 



T = 



Type 

1 
2 



FD (File Description) 
SD (Sort Description) 
RD (Report Description) 



P 
F 



S 
C 

L 
R 

B 



O = Organization 

Sequential l/O 

1 Relative I/O 

2 Indexed l/O 
A = Access Mode 

Sequential* access 

1 Random access 

2 Dynamic access 
OPTIONAL specified 
LABEL RECORD 

Omitted 

1 Standard 
START spcified for the file 
ADVANCING specified 
LINAGE specified 
RERUN specified 
RESERVE specified 
Block mode 

for RECORDS 

1 for CHARACTERS 
ALTERNATE KEY specified 
CODE-SET specified 

~B^se-CQ n -t- g o3= — . 

Not specified 

1 SAME-AREA 

2 .-SAME RECO^'AREA 
t^ 3 SAME ...SO'RT area- •"'' 
^ fj 'X SAME SORT-^^IERGE ARgA 



i^h^^\t VufW^) 
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= 4>-ch 



File Name = '©-character logical name to be used 
for physical dovic a> connection. 



C, = .Opened as INPUT (Sequential l/O only) 

C = Opened as either OUTPUT or EXTEND (Sequential 

L = LINAGE Type / U 

Data pointer 

1 number 
L- = FOOTING Type 

Data pointer 

1 nuniber 
L = TOP Type 

Data pointer 

1 number 
K = BOTTOM Type 

Data pointer 

1 number 



D = DUPLICATES for alternate key 1 

D = DUPLICATES for alternate key 2 

D = DUPLICATES for alternate key 3 
3 
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3.3.8.1 Report Writer group - RD group 



Rung 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 

22 
23 
24 
25 



111 
5 4 3 



Data Pointer of first item of group 



not used 



CODE literal value 



Data Pointer of Control Save area 



Data Pointer of last item of group 



Data Pointer of record area 



Data Pointer of LINE-COUNTER 



Data Pointer of PAGE-COUNTER 



File Pointer of FD 



# of Controls (CONTROLS ARE) 



# of detail groups (DE3) 



spare 



spare 



PAGE-LIMIT # 



HEADING # 



FIRST DETAIL # 



LAST DETAIL # 



FOOTING # 



RCB Location 



Procedure pointer of Control break 



Procedure pointer of save move 



Data pointer of Control variable 



CH Table Location 



CF Table Location 



Reset Flags Table Location 



DE Flags Table Location 
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3.3-9- File Base Stack 



(_<,r^c]c ^, fU^^ "fr) 



The File Base Stack is used to record the buffer and 
record size needed for each file base: The files 
specified in the SAME AREA clause are assigned the 
same base nuinber. Likev;ise, the records v/ithin the 
same file are assigned the same record number. The 
order of the group registration corresponds to the 
assigned base number of .V^^ files. 

The stack is exclusively used by allocate phase for 
allocation. After all files are recorded, a run of. 

the stack is made to allocate the bn-Fff^r- and -rf^nnr-ri 
areas and to replace contents of rungs with appropriate 
location value. 



Rung 
1 
2 



Block Size/Location 



Alt. Block Size/Location 



Record Size/Location 
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3. 3.10 Filler Sta 



ck (^6fcLcV> 10) f[^.s^ I ) 



The Filler Stack is used to temporarily accumulate FILLER 
item information prior to its record group (01 Level) 
resolution. The format of each group is identical to that 
of Data Stack except that rung 6 contains a Data Stack, 
pointer of the nearest preceding data name. The stack 
is used only in data parse phase, and after each 01 

level record group resolution, it is emptied. 



Rung 
1 
2 
3 
4 
5 
6 



same as Data stack 



preceding Data Pointer 
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3.3.11 Forward Reference Stack (^Sfo^'^ '^ t t^i'^-'^t- ^J 

The Forward Reference Stack is created during data 
parse phase to hold the forward data-name reference 
attribute. At the end of phase 1, a run is made on 
this stack to 

— 1. Update the appropriate stack with data 

stack pointer 
— 2. Diagnose undefined or non unique qualification, 

etc. 

.^ 3. Output cross-reference records. 



1 1 
5 4 



Rung 


Q 


Type 


1 


Symbol Table Pointer 


2 


Pointer 


3 


Line Number 


4 


Column Number 



Q = qualifier 

Type =0 FILE STATUS 



= 


1 


spare 


= 


2 


RECORD KEY 


= 


3 


ALTERNATE KEY 


= 


4 


spare 


=: 


5 


RELATIVE KEY 


r= 


6 


spare 


= 


7 


DATA RECORD 


= 


8 


LINAGE 


=r 


9 


FOOTING 


= 


10 


TOP 


-. 


11 


BOTTOM 


= 


12 


ASCEt: DING/DESCENDING KEY 


:= 


13 


OCCURS DEPENDING 
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3.3.12 Library (^^Stack (^ Sfo^fe \Z^ p^^>c^^^ Lj 

The Library ^ef/stack contains the link addresses of all 
runtime library routine references that a COBOL object 
module may require. 



word 



Link Address 



-^C-^ 



.^ 
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3.3.13 Literal Stack (^ 9Vck I', f^'^^ "" ^ ^J 

The Literal stack is used to hold the current batch of 
edit picture masks and procedure literals. The stack is 
emptied v/hen processing of each functional block is done, 



Riong 




1 




2 




3 




4 




5 


Literal 


6 




7 




8 




9 




10 


literal attribute 


11 


Literal DD header value 


12 


Literal Location 
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3.3.14 Literal Optimize Stack (^St~<^tk 1 2. , '^Ua~',C'S> ^j S^J 

Literals and edit masks v/hose length is less than or 
equal to 6 characters are collected in this stack to 
eliminate the repetitive generation of literals. 



Riing 
1 
2 
3_ 
4 



literal attribute 



literal 



literal address 
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3.3.15 Messenger Stack CSt^^t<. -^ 6j l^AxS^^. 1;Z^3^S'J 

The Messenger stack is used in parse phases to tempo- 
rarily hold MS file (Messenger File) . At the end of tlie 
encoding of each statement, the contents of the Messenger 
Stack are transferred to the MS file via XEC MOM and the 
stack is emptied. 



Rung 



Encoded Text 
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3.3.16 Operator Stack ( ^fa^fe if) PLc<^ 2.^ 

The Operator stack is used during the expression 
analyzer to facilitate the construction of Polish 
strings. 



Rung 



Operator 
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3.3.17 Polish Stack C9hi^ H, fkj>^^^ 2.") 

The Polish Stack is used for the necessary rearrangement 
of expressions. It is created and used in procedure 
parse. 



Pointer or Operator 
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3.3.18 Procedure Stack (^ 'St'^^k l, F-^^-a^>3 2- - 7 J 



The Proceduie Stack records the definition and/or 
references of each procedure-name specified in the 
Procedure Division, 

o in procedure phase 

.1 1 .1 1 1 1 . , 
5432109876b \ 2)^l0 



Rung 


Section Pointer 


1 


S 




C B E 


G 


A 


U D 


Segment # 


2 


Qualification Pointer 


3 


Not Used 


4 


I 





F 


T 


Definition Nxiitiber 



. Where Section pointer - contains Procedure pointer of 

section-name in which this paragraph is 
defined, 

S = Section-name 

C = Defined in Declarative Section 

B = Defined in Debugging Section 

E = Procedure-name of PERFORM exit 

G = Procedure-name of simple GO TO 

A = Referenced "by ALTER subject 

U = Referenced by USE FOR DEBUGGING 

D ~ Defined 
Rung 2 contains a circular synonym chain for qualification 

I = Input Procedure of SORT 

O = Output Procedure of SORT 

F = FROM procedure-name of SORT procedure 

T = TO procedure-name, of SORT procedure 
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o i^ 


Lfter 


1 
2 

3 , 

4 


parse 

•1111 
5 4 3 2 


i 

1 7 


6 


Rung 


JET Number or 




SIT Number or 


Segment # 




Definition Address 




Symbol String Address 




Same 


USE DEBUGGING, group # 



JET number = Index value into the Jump Exit 
Table, JET 

SIT number = Index value into the Segment Inter- 
face Table, SIT. The SIT facT litates 
b ranching between segments . 

For further descriptions of JET and SIT, see 
Section 5.6, Procedure Code Generation. 
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3.3.19 Qualification Stack ( "^t-^^^ '^^ |^U^^« ) 

The Qualification Stack is used during procedure parse 
phase to hold the order of data-name and its qualifiers, 
It is used to locate the qualified name in the Data 
stack. The information in this stack is also used in 
ge nerating the cross reference record. 

The group format of both qualified and qualifier is: 



Rung 
1 
2 



Symbol Table Pointer 



Line Number 



Column Number 



The order of registration of each group is 



Group 



Ql 




n 
n+1 



in 




Where Qq = Qualified group 

Ql '-:. Qn = Qualifying groups 

T = Termination group v/hich contains 



3-60 



CALIFORNIA SOFTWARE PRODUCTS. INC. 



3.3.2.0 Renames Stack 



C5-ha^ ^, eu^ 



The Renames Stack is used to temporarily hold the Data 
Stack pointers of "from" and "through" renamed data-name - 
This stack is used to resolve the displacement of renaming 
data-name during the 01 Level record resolution. The 
stack is emptied at the end of each 01 Level record 
resolution. 



Rung 

1 



FROM Data Pointer 



THRU Data Pointer or 
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3.3.21 Report Stack 

A group is registered in the stack for each record-name 
specified in the REPORTS ARE clause of FD. This stack is 
used to make the connection between the file name and its 
report names. The stack is active during data parse and 
report writer parse. 



Rung 



File Pointer 



Symbol Table Displacement 



Line Number 



Coltmin Number 
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3.3.22 Script Stack ( ^fa^ 10, p-^^-o-o^ ^ - C ) 

The Script Stack is constructed and used in Phase Q. A 
search of the Script Stack is made for each array re- 
ference and if a match is found, the pointer to the 
matched group is used. Otherwise, a new group is re- 
gistered onto the stack and its pointer is used. 
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Array 



Rung 


Data 


Pointer of Array 




1 


Sum 


of 


Constant Indexes 




2 


Script,/0 


3 


Script^/O 


4 


Script^/O 



Variable data 



Rung 





1 


Data Pointer of Variable Item 


2 


Data/Triad Pointer of OCCURS DEPENDING 


3 





4 






Array Condition-name 



Rung 
1 
2 

3 

4 



Data Pointer of Condition-name 



Stam of Constant Indexes 



Script,/0 



Scriptj/O 



Script^/O 
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Variable Group Condition-name 



Rung 
1 
2 
3 
4 






Data Pointer 


of Variable 


Item 


Data/Triad Pointer of OCCURS 


DEPENDING 


Data Pointer < 


Df Condition- 


-name 
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3.3.23 Segment Stack ( ^fs^u^'^ 

An entry is made to the Segment Stack for each unique 
pri ority number defined. The stack is used to hold 
information for code generation needed in 
the segment interface. 



<^^, 





1 
5 


1 
4 


1 
3 


1 
2 







ig 


Priority Number 


1 


JET Location 


2 


SIT Number 


3 


LINK Location 


4 


N 


D 


G 






where 



N = 
D = 

G = 



Noncontiguous segment 

Defined (used in Collapse phase to detect 

non-contiguous segments) 

Generated (used in Code Generation phase) 
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('S-lrcLck 2, fU^^ ^) 



3.3.24 Sta Debug Stack 

The Sta Debug Stack is used to collect debugging 
information for each statement. At the end of verb 
generation, debugging codes are produced through this 
stack. 



General format is 



Rung 



File/Data Pointer 



If "Data pointer" is an array item, then two 
additional rungs are pushed onto the stack for each 
subscript level. In addition, a script pointer is 
pushed as follows: 



Rung 1 


Data/Index Pointet/0 


2 


Constant script value. 


3 


Data/Index Pointer/0 


4 


Constant script value2 


5 


Data/Index Pointer/0 


6 


Constant script value^ 


7 

1 


Script pointer 



script. 



script- 



script^ 



This stack is in plex form. In other words, a pointer 
to the current top of stack is pushed onto the stack 
for each stack group and is used to distinguish one 
statement from another when nested. 
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3.3.25 Sta Polish Stack 

T he Sta Polish Stack is produced along with the Triad 

and Script stacks for each procedural block in op timize 

phase. At the end of each b lock, all three stalks ar e 



The 



'written out to the OP-file as an intermediate text, 
code gen phase, in turn, places the contents of the fi le 
back into their re spective stack area and the code gen - 
eration for the block is done by driving through this 
stack. 



I I 



Rung 



11111 
5 4 3 2 1 




B 



C (optional) 






A 


B 


C 





Data Pointer 


Groi:p Nuriber 


- 


1 


Procedure Pointer 


- 


2 


Spas^fiU folv^^i^r 


* Ca^of N'lw-k^'-^^ 


— 


3 


Spare 


— 




4 


Spare 


— 




5 


Spare 


— 




6 


itosolute String 


String T/^ngth in words 


String 


7 


Spare 


— 


■ 


8 


Spare 


— 




9 


Sta Polish Pointer 


Groi:p Nuirber 


"■ 


10 


Script Pointer 


II 


— 


11 


literal Pointer 


II 


^ 


12 


Procedure Definition 


II 


— 


13 


Statement 


SentPiice # 


line Nunber 


14 


Triad Pointer 


Grovp Number 


— 


15 


Verb 


Verb Nuirber 


Cc>e rands 
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A = 15, verb number is 

= end of block 

1 = Accept console 

2 = Accept date 

3 = Accept day 

4 = Accept time 

5 = Alter 

6 = Alter segment 

7 = Branch LE 

8 = Branch NE 

9 = Branch GE 

10 = Branch GT 

11 = Branch EQ 

12 = Branch LT 

13 = Report Writer Definition 

14 = Binary Compare 

15 = Binary Store 

16 = Binary Store Index 

17 = Call 

18 = Class Alpha Test 

19 = Class Numeric Test 

20 = Close Sequential I/O 

21 = Close Relative I/O 

22 = Close Indexed I/O 

23 = Compare Alpha 

24 = Compare Figcon 

25 = Compare Group 

26 = Compare Numeric 

27 = Debug Setup 

28 = s p ace £wt^y- 

29 = Display Console j, 

30 = Display ^^i^wft- "^i^^"^ 

31 = Delete Relative I/O 

32 = Delete Indexed I/O 

33 = Test switch-name 

34 = Report Writer end 

35 = Linage procedure definition 

36 = Go 

37 = Go Depending 

38 = Go Depending Segment 

39 = Go Indirect 

40 = Go Segment 

41 = Inspect „ ... p 

42 = Sffec¥^ G\o "w^f-^.eSiC'^ 

43 = Sort EOF 

44 = Link 

45 = &pa^?e- J^/W'a/^SL t)a^ 
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\ 



86 = M\D 

87 = OR 

88 = Convert Binary to Numeric 

89 = Convert Binary to Packed 

90 = Convert Numeric to Packed 

91 = Convert Numeric to Binary 

92 = Convert Packed to Numeric 

93 = Convert Packed to Binary 

94 = Start Relative I/O 

95 = Start Indexed I/O 

95 = N^de Label Definition 

97 = Stop 

98 = Ar%tggg-4*i goeoduro B . v . i 1 ; 'P-e.cla.Y-o.frue. n^MJM-^CJi- 

99 = Ppegfg m E ntry . 5e-<v-^eAf- S^+ov^ 

100 = Move Pigeon Edited ' ^ 

101 = Return 

102 = Search Initialize 

103 = Search 

104 = Search All 

105 = Search All Direction 
lOG ■ ■ Jcut —j^ 



<:^4er = Strtng 

ol K)S-» Unstring 

109 = Segn:ent Branch" 
no » Exit Program 

111 = Unstring Control 

112 = Unstring Into 

113 = Unstring Into End 

114 = Call Variable 

115 = Cancel 
_11 6 = Merge _ . 



-^ 
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/^^ - Str 



rt (^ 



/09' -^ R^for^ tO/L;/-£r z;i:/;^ A-e-e 

/ / b -^ i^^(>^-&- VO/iijiZu T^kJy)^} yuxjir 

1 1 / - {2iLf&^ UJa^itM^ UOruJtZ 

//2- - /^^ (M/]aMv <^i^j ^^y-^c^dr 

in ^ j-i^^ "^ 



46 = Move Figcon 

47 = Move Alpha 

48 = Move alpha just-right 

49 = Move alpha edited 

50 = Move alpha figcon just-right 

51 = Move group 

52 = Null 

53 = Open Sequential I/O 

54 = Open Relative I/O 

55 = Open Indexed I/O 

56 = Perform 

57 = Perform Terminate 

58 = Read Sequential I/O 

59 = Read Relative I/O 

60 = Read Indexed I/O 

61 = Release 

62 = Rewrite Sequential I/O 

63 = Rewrite Relative I/O 

64 = Rewrite Indexed I/O 

65 = Sort Control Block Setup 

66 = Set Adjust Index 

67 = Set Store 

68 = Sort 

69 = Store Edited 

70 = Set False 

71 = Store numeric 

72 = Stop Literal 

73 = Set True 

74 = Size Jump 

75 = Size Reset 

76 = Debug Procedure Test 

77 = Declarative Procedure end 

78 = Perform Segment 

79 = Write Sequential I/O 

80 = Write Relative I/O 

81 = Write Indexed I/O 

82 = sparo- TnLVx S-(l>v-v-^ 

83 = Program Collating Sequence 

84 = Test Numeric 

85 = Test Binary 
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3.3.26 Sum Upon Stack 

For each item to be summed (addend), in the report writer, 
a group is registered onto the stack. The Sum Upon stack 
is used to construct appropriate RESET and SUM routines for 
each control level in a report. 






Stack group type 


1 


Data Pointer of addend 


2 


Data Pointer of sum-counter 


3 


Data ptr of sum-ctr's report group 


4 


Data Pointer of RESET control 


5 


Data Pointer of addend report group 



where 



r\ing 4 = FINAL 

^ Data pointer of RESET control 

rung 5=0 addend is not in the report section 

Stack group type 

= non-array 

=1, 2 or 3 Number of subscripts/indexed needed 
for addend. The next group in the 
stack contains subscript/indexes 
information. 



Rung 
1 
2 
3 
4 
5 



Data Pointer of subscripti 


Relative Index integer^ or 





Data Pointer of subscript2 


Relative Index integer2 or 





Data Pointer of subscript3 


Relative Index integer3 or 
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3.3.27 Temp Stack ( 5"t,iu^ l3^ ^i^j^^^^ ' " "7 J 

The Temp Stack is used E>y all phases to hold temporary 
information. 



Rung 



4 
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3.3.2 8 Triad Stack 

For each collapsible operator, a Triad group is con- 

struct in the Common area and is searched against the 
Triad Stack. When a match is found, the matched group 
in the stack is marked as being used one more time. 
If a match is not found, the group in Common is 
registered onto the stack as a new entry. In 
either case, a pointer to the Triad Stack is used 
to describe the operand in Sta Polish Stack. 
Collapsible operations are any operations that 
can be optimized; that is, arithmetic and mode 
conversions. 

In optimize phase, each use of the Triad group is noted 
on the group by decrementing the 'used 'count. As long 
as the 'used' count is non-zero, the integrity of the 
Triad group is maintained in either a pseudo register 
or a temp cell. 



Rung 
1 
2 
3 



111111 
.5 432109876543210 



A Operand • 


B Operand 


S 




Class 


Driver 


Used Count 


Decimal 


Length 



A and B operands contain one of 
following pointers or zero. 
® Data 
«> Index 
" Script 
" Literal 
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Two operands of an operation, A and B, are 
canonized when possible. That is, operands 
are reordered to some logical sequence so 
that an operation, X * Y, will match with 
Y * X operation. 
S = Spoiled flag. The operation is "spoiled" 

when either of the operands is modified. 
Class = see Data Stack Description. 
Driver = 1 Unary minus, - . 

= 2 Exponentiation, ** 
= 3 Multiplication, * 
= 4 Division, / 
= 5. Addition, + 

= 6 Subtraction, - 
= 7 Binary load 
= 8 Binary load of index-name 
~ 9 Load 

= 10 Load figurative constant 
= 11 Round 

= 12 SET load (load occurrence number) 
= 13 Numeric to packed conversion 
= 14 Numeric to binary conversion 
= 15 Packed to numeric conversion 
= 16 Packed to binary conversion 
s= 17 Binary to numeric conversion 
= 18 Binary to packed conversion 

Used Count = Number of times the Triad result is used. 
Decimal = Decimal position of Triad result 
Length = Logical" length of Triad result. 



-5 I 'i CALIFORNIA SOFTWARE PRODUCTS. INC. 



3.3.29 True Label Stack C S-f «-^ 7^ P^.^5^<. ^^ 

False Label Stack ^ S-ta^\'L 1^^ e\^:^^^ .J-^, 



These two stacks are used during the logical expression 

analyze to record branches for relationals. 
A. 



Rung 

1 



Sta Polish Pointer 



Label Code 



Where Label Code 

= Synonym Spoil 

= 1 Synonym Label Start 
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3.3.30 USE Section Sta 



ck CSi-a.ck ^> iPU^^d 3) 



The USE Section stack is used during procedure parse to 
temporarily hold USE FOR DEBUGGING identifier or USE FOR 
REPORTING information. At the conclusion of procedure 
parse, the section pointers held in this stack are trans- 
ferred to rung 5 of appropriate data stack groups and the 
stack is popped. 



Rung 
1 



Section Pointer 



Data Pointer of USE item 



3-76 



CALIFORMIA "SOFTWARE PRODUCTS. fMC- 



3,3,31 Symbol Table 



The Symbol Table records the definitions of every 
unique symbol presented by a COBOL compilation. The 
implemen tor-names are predefined and initialized in 
the table. 



.w' 
1 
2 
3 



1 1 a 1 

5 4 3 2 


^l:i 

10 9 


8 7 6 5 


4 3 2 10 


Relative location .of 
synonym link 


. 


Type 


^1 


-. 1 


Not used 


L 


^ 


Syiribol 


V 



^ 



n 



(in bias-38 form) 




For Type =0-14, 

Type = stack number 

T and T = group number 

For Type = 15 

T. = mnemonic-name, T = file number 
1 2 

T = 1 switch-name, T = sv/itch number 



T = 2 device-name. 



T = device number 
2 



Tj^ = 3 alphabet-name, T2 = 

= 1 



STANDARD- 1 
NATIVE 



~f , Z ^ WvA^jAA^- W<3CmA> 3 



EBCDIC 
literal 



number of characters in symbol. (Maximum 30 characters) 
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U-7 



U 



./ 



7 





3.3.32 Reserved Word Table ^ 

The reservfedword table consists of four distinct tables, 

A. Hash Linkage Table 

This table contains 128 one- word entries. 
Each word contains word displacement of a re- 
served word in the Reserved Word Table (RV)T) for 
the first hash synonym. It, contains zero for a 
null hash synonym. This table is used to reduce 
the/^'earch time required to distinguish user- 
;efined words from reserved words. Each word 
is access.ed,.,y_ia. its hash nvurib er . 

Word Number Table 

The word number table consists of five entries. 
Each entry is the number (in alphabetical order) of 
the first reserved word requiring a given amount of 
space in the reserved word table. These numbers 
are compared to QQ and QQA operands to determine 
the size of the word being asTced for. 
Word Displacement Table 

Each word in the five-word table contains the 
word displacement into the Reserved word Table (ROT) 
for the first entry of a given size. It is used to 
locate and obtain required information of the re- 
served word in question. 

TO locate a word in the RV'^T from a QQ or QQA 
operand, the following steV- are performed: 
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1- Search Word Number Table for largest 
entry less than or equal to operand. 

2. Subtract \mT entry from operand. 

3. Multiply result by RVST entry size 

(2 + subscript of \-JET entry) . 

4. Add to corresponding ^"TDT entry to 
get RWT displacement. 

D. Reserved Word Table (RWT) 

This table contains the information of each 
reserved word, such as length, forward synonym 
linkage, reserved word characteristics and packed 
reserved word symbol. This table is accessed via 
the Hash Linkage Table or Word Number Table and 
Word Displacement Table. The format of each entry 
is: 



w 
1 
2 



1 1 

5 4 


1 
3 


1 
2 


1 1 
1 


9876543210 


L 


s 


F 


K 


« 


A M 


p|rI t 














n 



Reserved V'ord Symbol 
(in bias-38 form) ^^ 
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Where L = character count of reserved word symbol 

• S = relative halfword location of the next hash 
synonym in chain. A value of z3fo 
signifies the end of chain. 
F = Federal Standard level indicator 9 

= low 1^' 

= 1 low-intermediate p^* 
= 2 high- intermediate 
= 3 high 
K = Keyword. This flag is used when the 

syntcLX analyzer is in the recovery mode. ■ 
N = Reserved word used as a name (e.g., 

LINAGE-COUNTER) . 
A = Area A required. 

M = Both area A and area B allowed. 
P = Period required after this reserved word. 
R = Clause recovery flag. 

T = Trait which is division dependent or a pre- 
assigned value for the reserved word. 

1. For a figurative constant - it contains 
the actual figurative constant value. 

2. For Division, Section, Paragraph and 
Clause header - the last four bits are 
"encountered bits" associated 

with its occurrence - 

3. For a verb in the Procedure Division - 
it contains the "Verb Control" value, 

4. For a reserved word used as a name in 
the Procedure Division - it contains a 
preassigned number. 
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3. 4 Compile Work File Descriptions 

3.4.1 Data Text (DT-Texb) 

The Data Text is used to record the information in Data Division in 

order to minimize the size of various stack for those information 

not directly used during the parsing phases. 

The format of the text is : 



8 7 




Optional 



Where T = Type of the text 
L == .Word length of B 
B = Body of the text (word 1 through word n) 

The following is a list of texts being generated. 
1. Data Item Header (DIH) 

This text is generated for each data item defined in 
the Data Division. The DIH precedes any text that 
pertains to it. 

T = X' 00' 

L = n 

w 1 = Data Stack Pointer 

w 2-n = Pacrcod symbol of the data item, 
if required 
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2. Line Number (LIN) 

T = X'Ol' 
L = 1 

wl = Source image record number in bits 15-1 
•Copied from library' flag in bit 

3. Initial Value (VAL) 

This text is generated for any data item with an initial 

value specified- • 

T = X'02' 
L = n 

w • 1 = Literal attribute as follows: 

a. Figurative Constant 



111 



w 



1 
2 



Where 



5 4 


3 


8 7 







C 


not used 


not used 


FC 



C = for figurative constant 

FC = figurative constant value 

X'OO' = LOW- VALUE 

X'20' = SPACE 

X'30' = ZERO 

X'22' = QUOTE - double 

X'27' = QUOTE - single 

X'FF* = HIGH-VALUE 



3-82 



CALIFORNIA SOFTWARE PRODUCTS. INC. 



b. Alphanumeric 



w 1 
2 



AL/2 



1 1 

5 4 


1 
3 


1 
2 


7 


6 







C 


A 


not used 


AL 


















Alphanumeric Literal 




Where C = 2 for alphanumeric 
A = ALL 
AL = alphanumeric literal length (—120) 

c. Numeric 



w 



5 4 


3 2 




7 


6 







C 


S 


D 




NL 

















^ 



NL/2 



Where 



t^ 



U/Vvxj2jNjtc 



L-i-hzAusoV 




C = 3 for numeric 

S = negative signed 

D = decimal positions 

NL = numeric literal length 
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Edit Mask String (EMS) 

This text is generated for the data item with edit 

picture. 

T = X'03' 
L = n 

iW ; 1 = Edit mask string attribute 

w 2-n = Edit mask string 



w 1 
2 



L/2 



111111 



5 4 


3 


2 


1 ( 


D 


5 4 


o: 


C 


S 


A 


F 


D 


L 




















Edit mask string 




Where 



C = 



S 

A 
F 
D 
R 



class 

for alphanumeric 

1 for numeric 

digit select not present (i.e. no 9's) 

asterisk protect 

floating character present 

replaceable decimal position 

number of replaceable positions (^ 18) 
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5. Condition Name Header (CNH) 

This text is generated for each 88 level item and is 
f ollov/ed by condition literal text. 

T = X' 04' 

L = n 

w 1 = Condition-Name Stack Pointer 
w 2-n contains the packed symbol of 

the condition-name, if required. 

6. Condition Literal Single (CLS) 

This text is generated for each condition .literal 

without "THRU" option. 

T = X'05' 
L = n 

w 1 = Literal attribute, same format as 
VALUE literal 

•w 2-n = Literal string 

7. Condition FROM literal (CFL) 

This text is generated for each FROM condition 
literal: 

T = X'06' 
L = n 

w 1 = Literal attribute 

.w 2-n = Literal string 
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8. Condition TO literal (CTL) 

This text is generated for each TO condition 
literal: 

T = X'07' 
L = n 

w 1 = Literal attribute 

w 2-n = Literal string 

9. Condition Terminator 

T = X'08' 
L = 

10. Data Item Terminator 

T = X'09' 
L = 

11. Report Name Header 

This text is generated to identify RD (report 
file). 

T = X'OA' 

L = 1 

word 1 = rile Pointer 

12. Report Name Terroinator 

T = X'OB* 
L = 

13. Alphabet-namie definition 

T = X'OC 

L == or 129 

w 1 = mnemonic nximber (see Syiribol Table description) 

w 2-129 = 256-byte translation table if not 
' STANDARD ' . 
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14. Program Collating Sequence 

T = X' OD' 

L = 1 

w 1 = mnemonic 

15. Line Nuitiber 

T = x'DO' 
L = 1 

16. DT-Text Terminator 

This text is generated to flag the termination of 
DT-text 

T = X'FF' 

L = 1 
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3.4.2 E ncoded Procedure Text, EP-Text 

The Encoded Procedure Text is a simple encoding of PPX)CEDURE 



DIVISION. The format is : 



11111 
5 4 3 2 1 




optional 




Where OP = Dataname/Condition-name/Index-name 
= 1 Procedure-name 
= 2 File-name 

- 3 Spare 

= 4 Spare 

= 5 Mnemonic-name 

= 6 Miscellaneous 

= 7 Qualified Procedure reference 

= 8 Expression 

= 9 Spare 

=10 Compiler- generated tag 

=11 Literal or Figurative constant 

=12 Procedure Definition 

=13 Source Line Number 

=14 Procedure Syntax information 

=15 COBOL verb 
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Control field, C, is as follov/s 



o For OP = 0,l,2,^^£p712 

C = group nunOber of stack 

© For OP = 5, C= '8nn' where nn is collating sequence 

table number. 
o For OP = 6 

C = for implied subject in an expression 

b For OP = 8, C consists of two suL fields ; Order and 
Operator #. The Order field is bits 4-7 
and the Operator # field is bits 8-15, 



Operator 



Order 



Operator # 



expression end 

unary minus 
** 

* 
/ 



condition relational 

numeric test 

alphabetic test 

positive test 

zero test 

negative test 

NOT 

AND 

OR 

expression start 




1 
2 
3 

3 
4 
4 
6 
6 
6 
6 
7 
7 
7 
7 
7 
8 
9 

10 

15 





1 

2 

3 

4 

5 

6 

7 

8 

9 

12 

13 

14 

15 

16 

17 

18 

19 

20 
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for- OF - 11^ 






For Cyf -^ )'^ 
C - (5 






For OP = 10, 

C = next sentence 
= 1 true label 
~ 2 false label 

For OP = 11, C consists of two su]>€ields : C, and C 





where C^ is bits g^ and C^ is bits 
Cj^ = literal attribute and literal is ' words 1-n. 
f-'^~4 integer in wordT ^ _" ^ «^i^ SU-b^J^ ^>-U=^ 

= 5 + self-relative integer in word 1 ' 
= 6 - self-relative integer in word 1 
C^ = word length of optional words (words 1-n) 




X'OO' USING (Procedure Division Header) 

X ' 1 ' DECLARATIVES 

X'02' USE DEBUGGING 

X'03' USE REPORTING 

X'04' USE STANDARD 

X'05' END DECLARATIVES 

X'06' REPORT NA^IE HEADER 

X'07' REPORT GROUP HEADER 

X'08' REPORT NAME END 

x'09' -aassa- SjpoA^- 

X ' 10 ' JiCCEPT 

X'll' ADD 

X'12' ALTER 

X'13' CALL 

X'15' CLOSE 

X'16' COMPUTE 

X • 1 7 ' DELETE 

X'19' DISPLAY 

X'lA' DIVIDE 

X'lC ENTER 



CALIFORNIA SOFTWARE PRODUCTS. INC. 

3-90 



/ 



X'lD' 


ENTRY 




X'lE' 


EXAMINE 




X'lF' 


EXHIBIT 




X'20' 


EXIT , 




X'21' 


GENERATE 




X"22' 


GO 




X'23' 


GOBACK 




X'24' 


IF 




X'25' 


INITIATE 




X'26' 


INSPECT 




X'27' 


MERGE 




X'28' 


MOVE 




X'29' 


MULTIPLY >i^ 




<CK-^2A'- 


rzrgSF^j —-^"^--^ 




X'2B' 


OPEN 




X'2C' 


PERFORM 




X'2D' 


READ 




X'2E' 


READY TRACE 




X'30' 


RELEASE 




X'31' 


RESET TRACE 




X'32' 


RETURN 




X'33' 


REWRITE 




X'34' 


SEARCH 




X'37' 


SET 




X'38' 


SORT 




X'39' 


START 




X'3A' 


STOP 




X'3B' 


STRING 




X'3C' 


SUBTRACT 




X'3E' 


TERMINATE 




X'3F' 
X'40' 

xMi; 


TRANSFORM / v'«/ 
UNSTRING :7 x'a.3' 
WRITE /\ 




xM(^:_^ 


REPORT WRITE 
GROUP INDICATE 





<h; 




L./M^ Ai>i/AfOCE: C^Cpdraf U^'A.lt^v--} 
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For OP = 14, this field is a statement option increment. 
USE DEBUGGING 



X'OO' 
X'Ol' 



ALL PROCEDURES 
ALL REFERENCES 



USE STANDARD 



ACCEPT 



ADD 



CALL 



CLOSE 



X'lOO' 


EXTEND 


X'200' 


I-O 


XMOO' 


OUTPUT 


X'800' 


INPUT 



X'Ol' 
X'02' 
X'04' 

- X ' OO '' 



X'lO' 



X'OO' 
X'02' 
X'04' 
X'lO' 
X'40' 
X'80' 



X'80' 



X'Ol' 
X'02' 
X'04' 
X'20' 



DATE 
DAY 
TIME 
- SY D IN 



CONSOLE 



TO 

GIVING 

ROUNDED 

CORRESPONDING IDENTIFIER 

ON SIZE ERROR 

CORRESPONDING 



ON OVERFLOW 

UNIT/REEL 
WITH LOCK 
NO REWIND 
REMOVAL 
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X'04' 


ROUNDED 




X'20' 


= 




XMO' 


ON SIZE ERROR 


DISPLAY 








X'lO' 


CONSOLE ^^ 








'VT U ± — "' ■ 


SYSOOT ^^=> -^ 


DIVIDE 








X'OO' 


INTO 




X'Ol' 


BY 




X'02' 


GIVING 




X'04' 


ROUNDED 




X"08' 


REMAINDER 




XMO' 


ON SIZE ERROR 


EXAMINE 








X'Ol' 


ALL 




X'02' 


LEADING 




X'04' 


FIRST 




X'08' 


UNTIL FIRST 




X'20' 


REPLACING 


EXHIBIT 








X'OO' 


NAMED 




X'Ol' 


CHANGED 




X'02' 


CHANGED NA14ED 



EXIT 



ll^l^t^i^ 



X'OO' 






'?^ 



PROGRAM 
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INSPECT 



MERGE 



X' 


'00* 


X' 


'01' 


X' 


02' 


X' 


04' 


X' 


OS' 


X' 


10' 


X* 


20' 


X' 


40' 


X' 


00' 


X' 


01' 


X» 


04' 


X' 


02' 


X' 


'20' 



X'40 



CHARACTERS 

ALL 

LEADING 

FIRST 

BEFORE INITIAL 

AFTER INITIAL 

REPLACING 

TALLYING data-name 

ASCENDING KEY 

DESCENDING KEY 

USING 

GIVING 

COLLATING SEQUEslCE (followed by 
mnemon ic-name) 

OUTPUT PROCEDURE 



MOVE 



X' 


10' 


X' 


80' 


.TIPLY 

X' 


01' 


X' 


04' 


X' 


40' 


N 

X' 


04' 


X' 


08' 


X' 


10' 


X' 


20' 


X' 


40' 


X' 


80' 


x4ot)' 


X 


•;zoo' 



CORRESPONDING Identifier 
CORRESPONDING 

GIVING 

ROUNDED 

ON SIZE ERROR 

NO REWIND 

REVERSED 

EXTEND 

I-O 

OUTPUT 

INPUT 

UcK 
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PERFORM 



READ 



RELEASE 



X'OO' 
X'Ol' 
X' 10' 
X'20' 
XMO' 

X'04' 
X'Ol' 
X'02' 
X'20' 
X'40' 



X'OO' 



FROM 

BY 

AFTER 

UNTIL 

VARYING 

NEXT 

INTO 

KEY 

AT END 

INVALID KEY 

FROM 



X'4t5-C> 



LocjC 



1 ;<' aoo' •^vH^^Bb 



RETURN 



REWRITE 



SEARCH 



SET 



X'Ol' 
X'20' 

X' 40 ' 



X' 


•00' 


X' 


'02' 


X' 


'04' 


X' 


'10' 


X' 


'20' 


X' 


40' 


X' 


00' 


X' 


01' 


X' 


02- 



-^^ 



INTO 
AT END 

INVALID KEY 



VARYING 

T-7HEN 

NEXT SENTENCE 

Next Sentence Tag 

AT END 

ALL 

TO 
UP BY 

D0V7N BY 
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SORT 



START 



STRING 



X'OO' 
X'Ol' 
X'04' 
X'02' 

X'20' 

X'40' 
X'80' 



X 


•04' 


X 


'08' 


X 


'10' 


X' 


'40' 


X' 


01' 


X' 


02' 


X* 


04 ' 


X' 


08' 


X' 


80' 



SUBTRACT 



X'OO' 
X'02' 
X'04' 
X'lO' 
X'40' 
X'80' 



ASCENDING 
DESCENDING 
USING 
GIVING 

COLLATING SEQUENCE (follov/ed by 
mn emon i c -n ame ) 

OUTPUT PROCEDURE 

INPUT PROCEDUP.E 






EQUAL 
GREATER 
NOT LESS 
INVALID KEY 

INTO 
SIZE 

DELIMITED 

POINTER 

ON OVERFLOW 



FROM 

GIVING 

ROUNDED 

CORRESPONDING Identifier 

ON SIZE ERROR 

CORRESPONDING 



lOCic 
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OAJU^i^ 



r 



6^ 



f^/^y 



UNSTRING 



WRITE 



X'Ol' 
X'02' 
X*04' 
X'08' 
X'lO' 
X\20' 
X'40' 
X'80' 




X'40' 






INTO 

ALL 

DELIMITED 

POINTER 

COUNT 

DELIMITER 

TALLYING 

ON OVERFLOW 

EOF, END-OP- PAGE 

PAGE_ - K oH-' e(>imoiSll»J0^ 



BEFORE 
AFTEIL_ 



1 / 



-^>:^ <>i.2j : i. — v^c S ^ "^ ^ ' ^T^rt-^ 



INVALID KEY 



L^cl^ 
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3.4.3 Optimized Procedure 'Text, OP-Text 

This text is a conglomeration of the contents of several stacks 
used in phase •& for collapsing and analyzing o f EP-Text. Since 
,ths collapsing occurs from one proced'^-e-nanie definition to the 
next definition (a function al block), information collected in 
these stacks are no longer needed at the end of each "block". 
At this tima, these stacks are copied out to the OP-file before 
baing popped^ 

-The general fnnnat of OP-text is as follows for each block: 




w 



Segment Pointer or 



1 last Mode Label Pointers. 



2 \ last Literal Pointer or 



\ 



Literal addresses 



liist Triad Pointer or 



s. 



N 



Triad Stack dump 



last Script Pointer or 



-^ Script Stack dump 



last Sta Polish Pointer or 



Sta Polish stack dump 



v^ 



^ 



v^ 
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3.4.4 Cross Reference and Diagnostic Texb 

The Cross Reference and Diagnostic Text consists of Cross Reference 

Records and Diagnostic Records. Each record contains ^-^^ words and 

the v;hole record is used as a sort key. . . 

3.4.4.1 Cross Reference Text^ XR-Text 

The Cross Reference Record is created by the parsing phases v;hen 

the CR option is specified on COBOL Job G- onferul ■ Cctr Jv 



w 
1 



10 



11 



^ 



13- 



1 1 
5 4 




■44-^ 



(< 



Symbolic string 



Pointer 



Me- t Uocd- 



Line Number 



f^ 



F = 



R = 



for data-name 

1 for procedure-name 

for definition 

= 1 for reference 




/ 






^£^- 



^^^-;v-;^^ 



z^ 



\aJ\J^~~- 
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3.4.4.2 Diagnostic Text, ER-Text 



w 
1 
2 
3 



\<^ 




Line Number 



Coltunn Number 



Error Number 



Not Used 




Where F = /^ for diagnostic 



Y 
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3.4.5 RW-Text 



The RW-Text is identical to DT-Text with following extensions 
and is used to temporarily hold the report v/riter information 
between the passes in Phase $. The general format is: 

111111 

54321098 7 6 5 4 3 2 10 
Word 




1 . CODE 

R = X'EO' 
P = 2 

Word 1 = CODE literal value 



CONTROL 
R = X'El' 

P = FINAL not specified 
= 1 FINAL specified 



Words 1-n 



3 . Lin 




Data pointers of CONTROL items 
in order of sequence. 



R 

P 



ige 

X'E2' 

PAGE-LIMIT is specified 
= 1 HEADING is specified 
= 2 FIRST DETAIL is specified 
= 3 LAST DETAIL is specified 
= 4 FOOTING is specified 

The integer value associated with above clauses are 
placed in the File Stack. 



^ 



TYPE 



R = 


X'E3' 








P = 


X'OO' 


DE 






= 


X'Ol' 


RF 






= 


X'02' 


PF 






t= 


X'04' 


CF 


and 


word 1 = 


= 


X'04' 


+ X' 


40' 


CF FINAL 


= 


X'08' 


CH 


and 


word 1 = 


= 


X'08' 


+ X' 


40' 


CH FINAL 


= 


X'lO' 


PH 







Data Pointer 



Data Pointer 



= X'20' 



RH 



CALIFORNIA SOFTWARE PRODUCTS, IMC. 



3-101 



^. 



(.. 



^ 



<- 



\o. 



Il' 



a- 



NEXT GROUP 

R = X'E4' 

P = 1 word 1 contains integer 

= 2 NEXT PAGE 

= 3 integer with NEXT PAGE 

= 4 PLUS and word 1 contains integer 



LINE 

R 
P 



X*E5' 

1 word 1 contains integer 

2 NEXT PAGE 

3 integer with NEXT PAGE 

4 PLUS and word 1 contains integer 



COLUMN 

R = X'E6' 

P = not used 

word 1 = integer 



-f^. GROUP INDICATE 



R = X'E7' 
P = 

SOURCE 

R = X'E8' 
P = 
words 1-n 



VALUE 

R = X'E9' 
P = 
words 1-n 



Data pointer and subscript/index 
information if an array. 



= value literal 



RESET 

R == X'EA' 

P = word 1 contains Data Pointer 
= 8 FINAL 

Forward Referenced Data Item 

R = X'70' 

P = number of data-names used for the reference 
= for each of qualifying data-names 

word 1 contains 

if bit 15=0/ symbol table displacement 

if bit 15=1, compiler-generated register number 

(e.g., PAGE-COUNTER reference is X'BOOD') 



3-102 



CALIFORNIA SOFTWARE PRODUCTS, INC. 



AP3?ENDIX D 
OPSIIATIONAL CONSIDERATIONS 
Corgpiler Con-trol Options 

Cba^iler con-trol options are listed on the RN. COBOL line. • 
A ccEEaa or spaca xiay be used to separate options . A minus sign 
tarns am option orr. Conroiler control options .and their meanings 
axs the followlngrr 

Oati.on " He^^rrTng- 

AKS Use- ANSI mode in the compiler: flag any 
nonstandard clause or syntax as invalid. 
Proccce cross— reference listing. 
Prcrrr.rre data map. 



CR 

DM 
DQ 



GO 

LI» 



LO 




Dse- the double quotation marJc {") instead of 

ths-- apostrophe <*) to delimit alphanumeric literals 

Display warning messages . 

Generate object code file. 

Lcirg; listing: use this option for 11-inch paper 

or" 3 lines/inch printing. _ __ 

IiLs- object cods. LO may be followed by a 

specification of lines for which object code is 

to be listed. This specification takes the form 

(R^, R2' ^3' ^4' K5) . Each R^ may be a single 

line number or a range lo-hi, where lo :^hi- 

List source code. 

Allow 80 columns for source. If R80 is not 

specified, columns 73-80. 
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n-AJS 

Qi6 

LO ( 
LS 









04 




-M. 



;> 



c^ 



J 



Op-fcion Meaning 

SEG Use of the segmentation feature is permitted. 

SD3 This is a subroutine. 

SYN Chec3c soxarce progran syntax only. 

TEACH Enables trace on and trace off statements . 

The options C3., GO, and LS are on unless- they are explicitly 
turned, off by a. isinus sign- 'All other options are off unless 
they are ex?lic±rly turned on in the RN. COBOL line. 

FIZLS' STATUS Data. Item. 

The EILS. SrSvTUS data item is a two-character data item which 
indicates- the st^inis of an OPEN, CLOSE, READ, START, WRITE, or 
RETxRITZ statenerrt: during the execution of the statement and 
before- any appLi-rrabla USE procedure ir .xecuted- The data item 
ha^ a valid cede- cnly if the FILE STATUS clause is specified 
in the file ccntrcL ^nizxy for a file . 

The codes and their meanings are given in table D— 1. 
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3.5 COMPILATION OPTIONS 

The compilation options (through SOPTION statement) provide 
the user a wide range of capabilities. 

1 specifies that the source and aYiy accompany- 
ing diagnostics are not to be listed. 

2 causes the object program to be not written 
out on the system binary out file. 

3 causes a map of the Data Division to be not 
produced. 

4 causes, a cross reference list to be not 
produced- 

5 causes the object program to be written out 
on- the system load-and-go file. 



-6 — causes an object listing to be produced. 

7 signals the compiler to list warning diag- 
nostics along with the other diagnostics. 

8 Source program is checked for syntax only. 

9 iTT^ijrms the compiler that the source program 
has a double quotation mark instead of apostro- 
pnes that are to be used as enclosing characters 
fsr- alphanumeric literals. 



10 Fecer^l Information Standard (FIPS) low level 
diagnosis. 

11 Federal Information Standard (FIPS) low- 

. intanuediate level diagnosis. * . 

12 Federal Information Standard (FIPS) high-' 
inrarmediate level diagnosis. 

13 causes segment numbers to be ignored so that 
the object program is not segmented. 

14 informs the compiler to produce a subprogram 
^object. This option is required when no 

argument is being passed to a subprogram. 

15 informs the compiler that all 80 columns of 
input are significant, rather than just the 
first 72. 

15 produces a debu^ file to be interfaced with 
the interactive debugger. 
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word 2 = Line number 
word 3 = Column number 

For example, a forv/ard reference of A of B will 
produce following RW-Text: 

word = X'7002' 

" 1 = Data pointer of A 

" 2 = line # 

" 3 = column # 

" 4 = X'700O' 

" 5 = Data pointer of B 

" 6 = line # 

" 7 = column # 
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3.5 Compilation Options 



The conipilation options provide the user a wide range 
of capabilities. 




A l>rief description of each option follows: 'Any of the 
options can be negated by preceding the option v;lth a '-' 
(minus) character, e.g., -LS. If the option is a default 
value it is underlined. . 




produces a debug file to be interfaced vith^ 



the interactive debugger. 



/ 



signals the compiler to list warning diag— ^ 
nostics along v/ith the other diagnostics, 

.causes a map of the Data Division ^.to be 
'w-oduced - / 

causes a map of the Procedure Division 
to be produced. / 

causes \a cross reference list to be 
produceav 

ifies tl 



specij 



lat the source and any accompany- 



ing diagnostics are/to be listed . 



/ 



/ 



causes an obj eat 'listing to be produced. 

informs the comprS^r that the source prograim has 
double quotation ma^rks instead of single qxiotation 
marks that^are to be\usea as enclosing characters 



for 



mumeric literals. 



causey the object prograhi^to be v;ritten out on ' 
the/System GO file. 



c^mses the object progran to 
he system BO file . 



\vritten out on 



infonas the compiler to honor the ^gment numbers 
that are associated v-ith each sectio^-naime . 



informs the compiler to produce a subprograxm objecE; 
This option is required v/hen no argument\is being 
passed to a subprogrsim. 



3-104 



CALIFORNIA SOFTWARE PRODUCTS. INC. 



3.6 Compiler Output 

3.6»1 Over view 

The COBOL compiler optionally produces the 

following outputs: 

o Source listing 

G Diagnostics listing 

o Binary loader text 

<» Object listing 

o Data name map listing 

e Cross Reference listing 

o Procedure map listing 

3.6.2 Source Listincr 

The Source listing is produced %7ith the LS option, 
and each source line consists of a line nxunber, 
location of generated code, and the 80-column 
image of a source input. Column 1-6 of each 
source record is sequence checked and if it is 
out of sequence, "#" is printed to the left of 
the source record. If blanlcs appear in column 
1—6, the record is assumed to be in sequence. 
Sequence checking is done alphanumeric ally. 

3.5.3 Diagnostics Listing 

The compiler collects the diagnostics throughout 
the parsing and code generation phases and pro- 
duces the list at the end of compilation. Warning 
diagnostics are inhibited from printing unless 
specifically requested with the DW option. Critical 
diagnostics are alv/ays produced. 
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Each diagnostic consists of line and column 
numbers v/hich pinpoints the position which 
the diagnostic refers to and a description of 
the error along v/ith its number, 
3.6.4 Object Listing 

The Object program listing is invoked with the 
LO . option and appears in the source program 
listing. The code generated for each source 
line follov/s the line and symbolic verb of 
that. line. It consists of a relative location 
in hexadecimal, a hexadecimal operation code, 
a relative operand in hexadecimal, a symbolic 
operation code and symbolic operand. Object 
listings are descriptive much like an assembly 
listing. 

3.6.5 Dataname Map Listing 

The dataname map listing is produced with the 
DM option and appears after the source object 
listing in an alphabetical order. 

3.6.6 Procedure Map Listing 

The procedure map listing is produced v/ith the 
PM option and appears aftc"- the dataname map 
listing, if specified. It is in an alphabetic 
order, 

3.6.7 Cross Ref erence Listing 

The CR option produces a cross-reference listing 
of data and procedure nam.es. If DM or PM is 
'specified also, the maps are intermixed with the 
cross-reference listing. 
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COMPILER PHASE DESCRIPTIONS 

4. 1 Compiler Organizations 

The COBOL Compiler is organized into seven (7) phases 
which overlay each other and use a common MOM inter- 
preter with Phase Driver as a root phase as shown in 
Figure 1. The functions of the Root and seven phases 
are as follows: 

Root - MOM interpreter and phase driver 

Phase - Compiler initialization 

Phase .1 - Identification, Environment and 

Data Divisions Parse 
Phase 2 - Report Writer Parse 
Phase 3 - Procedure Division Parse 
Phase 4 - Data Allocation ^ 

Phase 5 - Procedure Code Optimization 
Phase 6 - Procedure Code Generation 
Phase 7 - Cross-Reference List 

The compiler can also be described as three required 
"passes" and an optional fourth "pass": (Phase 1 
through Phase 3) . Pass 1 parses the source text and 
encodes it for further processing. Pass 2 (Phases 
3 and 4) reads the encoded output of Pass 1, allocates 
data areas and optimizes the procedure code. Pass 3 
(Phase 6) generates the object code. Pass 4 (Phase 7) 
is optional; it produces the cross-reference listing. 

4.1.1 Phase 

Phase perform.s compiler initialization. It processes 
the compilation parameters (options specified on the 
COBOL Job Control card) , determines file requirements 
for pass 1 and available storage for the Symbol Table 
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and the Stack area. In addition. Phase initializes 

the Synibol Table with implemen tor-name symbols and 

their attributes, 

4.1.2 Phase 1 

Input: Source of Identification, Environment and 

Data Divisions 
Output: . XR-Text and ER-Text of Ex-File 

External Output: Source listing of above mentioned 

divisions. 

Phase 1 performs a syntax analysis of the Identification, 
Environment and Data Divisions. This checking results 
in the generation of ER-text (error) if user errors are 
detected. More importantly, this phase creates stack 
entries for data-names, index-names, file-names and 
condition-names so that subsequent phases can readily 
access this information. In addition, the information 
relating to initial values, edit mask strings and data 
map symbols is output as DT-text (data clusters) for 
input to Pass 2. Phase 1 also optionally produces 
cross-reference information in the form of XR-text. 
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4.1.3 Phase 2 

Input: Source of Report SEction 

Output: DT-Text 
EP-Text 

External Output: Source listing of Report Section 

Intermediate: RW-Text 

This is an optional phase and is called only when the 
REPORT SECTION is recognized. Included in Phase 2 
are some of Phase 1 parsing routines and a special 
set of syntax routines to process tne Report Section. 
This special set of routines is required because of 
different syntax rules from their standard Data 
Division counterparts. Phase 2 is comprised of two 
parts: syntax analysis and encode. 
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4.1.4 Phase 3 

Input: Source of Procedure Division 

Output: EP-Text 

XR-Text and ER-Text 

Phase 3 is similar to Phase 1 except that this phase 
operates on procedure statements. Phase 3 performs a 
syntax analysis of the Procedure Division and creates 
interme di ate text called EP-text (enco ded procedure) . 
EP-text-j3optains two major categories: procedure-name 
definitions and verb strings, A procedure name defini- 
tion element is simply a Control number followed by a 
pointer to the Procedure Stack. Verb strings consist 
of a verb identifying number followed by arguments 
that describe verb operands. These arguments may be 
stack pointers or some syntactical attributes. For 
example, the s tatement MOVE A TO B i s translated into 
a verb string containing a MOVE verb number and Data 
stac' k_ pointers of A and B as its arguments. 
Phase 3 creates stack entries for procedure -names 
and, like phase 1, produces XR- and ER-text. At the 
end of source input. Phase 4 is called and after this 
time the symbol table is no longer required. 
4.1.5 Phase 4 
Input: DT-Text 
Output: OP-Text 

External Output: Object list for a-^located data area 

Object for data area 
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Pha se 4 alloca ^p'H f^nha^ nhrurJrnT-P!^ aa described in the 
Data Division; that is, it assigns locations for the 
data fields defined and generates code necessary for 
initial values and data section allocation. 

In the first part of the data area, all the information 
that pertains to file description is generated. To do 
this Phase 4 makes a run on the File Stack. Each file's 
record area is allocated at this time and the address of 
the area is recorded in the File Stack. Following record 
area allocation, a second pass is nade through the File 
Stack to produce File Information tables. 

The primary function of FIT is to provide the addresses 
of abnormal exit points to various COBOL l/O routines. 
Furthermore, it provides additional information about 
file's attributes and status; i.e., block size, address 
of STATUS item, current lock position, etc. 

The next step in Phase 4 processing is to make a run on 
the Data Stack assigning addresses for each data item 
defined. The order of allocation is same as the order 
of source presentation except for items which are re- 
defined or renamed. After the data item allocation, 
another run is done on the Data Stack and Data 

Descriptors are produced. Each Data Descriptor (DD) 
contains the attributes of the data item and the 
address v^here it can be found. 
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4.1.6 Phase 5 

Input: EP-Text 
Output: OP-Text 

External Output: Object list for procedure-reference 

literals. 

Phase 5 carries out the second stage of 3-stage process 
of converting the COBOL procedural code as described in 
the Procedure Division into object program. This stage 
consists of breaking down certain statements into simpler 
structures that resemble the final object sequence. 

The process of optimization in phase 3 is accomplished 
when re-translating from Polish notation to triad form. 
The triad form is especially amenable to analysis for 
the removal of removable operations. As each triplet 
is constructed, it is compared to triplets already 
created within the same functional bloc3c. When a 
match is found, the matched triplet is marked as being 
used once more and the pointer to this triplet is used 
to describe the latest operation. In this v/ay, all 
optimizable operations are collapsed into the least 
number of operations for a give^^ pirogrcim. 
4.1.7 Phase 6 
Input: OP-Text 

External Output: Object listing of Procedure Division 

Object program 

Phase 6 can be thought of as the generation or assembler 
phase, because it prepares a machine language program 
from a pseudo-language text. In this case, the pseudo 
language is OP-tex fc^ that was prepared in Phases 4 and 5. 
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The main function of Phase 6 is to perform the last 
stage of the translation process for procedure state- 
ments : 



— a. 



Translate OP-text into an object module suit- 
able for input to the loader. 
_b. Create separate object files for each segment 
module. 

■ c. Generate the code necessary for register house- 
keeping? i.e., generate register stores and 
loads of intermediate results when required, 
d. Produce object listing, if requested. This 
listing will be a "one-pass" listing, v/ith. 
forward references being resolved by the 
loader. 

The optimization process in phase 6 is accomplished by 
developing all arithmetic results in a set of pseudo- 
registers allocated in memory. For each of the pseudo- 
registers, ■ the contents and their destination are 
remembered. The algorithm used for selecting the next 
register takes advantage of a mark left on each triplet 
indicating the remaining number of times it is to be 
used by selecting the register with the least number. 

4.1.8 Phase 7 

Input: XR-Text and ER-Text of XR-File 
External Output: Cross reference listing 
The sole function of Phase 7 is to sort the XR-File 
(XR-Text and ER-Text) and to print out the cross 
reference and diagnostic listings. 
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If the CR option is specified, XR-text is generated 
by Phases 1 through 3. It contains symbolic, name 
attributes, and references of user-defined names. 
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4.2 Compiler External Floweharh 



Source 
Listing 




V 



PHASES 
1, 2 & 3 




bT/EP-texf 



PHASES 
4 & 5 




OP-tGXt 



v 



Object 


y 


PHASE 


Listing 


\ 


6 










V 




XR/ER-text 



V 



PHASE 

7 



XREF/ 

Diagnostics 
Listings 
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COMPILER GENERATED OBJECT CODE 

5.1 Overviexv 

Due to the nature of the Microdata Express computer, 
it is not practical to attempt to generate in-line 
code for the majority of the functions of the COBOL 
language. The primary reason is that the Microdata 
Express computer is not a business oriented computer; 
that is, decimal arithmetic must be done with software. 
Fiorthermore , the environment in which the COBOL object 
must execute in is rather restrictive for good sized 
COBOL. An average COBOL program is usually in excess 
of 1000 source lines. Because of this, the design of 
the Microdata COBOL system includes library routines 
for performing these functions and compiler generated 
code consisting of calling sequences to these routines 
whenever one of the COBOL fionctions needs to be per- 
formed. 

5.2 Generation Sequence 
5.2.1 Generated order 

In the follov/ing discussion of the calling sequences for 
COBOL runtime routines., it is understood that v;henever 
necessary, subscripts, indexes, and data format conver- 
sions have been computed, adjusted for type, and placed 
in the appropriate temporaries or dummies. The code 
generation for each COBOL verb, in most cases, has the 
follov/ing format : 

subscript or index conversion of source 

subscript or index calculation of source 

source data format conversion > prolog 

subscript or index conversion of target 

subscript or index calculation of target -' 

target data format conversion 

COBOL verb processor 

computed data format conversion > epilog 



5-1 



CALIFORNIA SOFTWARE PRODUCTS. INC. 



5.2.2 Calling Sequence Conventions 

The general calling sequence that the compiler generates 

for COBOL runtime routines is 



MARK 
LWL 

LWL 



"14", routine name 
DD of data-name]^ 

DD of data-name2 



LWL 
CALL 



DD of data-name 
3+n 



n 



Since this calling sequence is laborious and un- 
necessarily redundant to document, a simplified form 
of describing the calling sequence is used whenever 
practical. 



For example: 






MARK 


"14", 


C#LOA 


Lr 






LWL 


DD of 


idi 


CALL 


5 




MARK 


"14", 


C#STE 


Lr 






LWL 


DD of 


id2 


CALL 


5 





where r=DECA number 
source item 



destination item 



are documented as 

LOAD 
STE 



r,idi 
r,id2 
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5. 3 External References Naming Conventions 

5.3.1 Object Program 

The first eight characters of PROGRAM-ID literal are used to 
identify the root program produced by a COBOL compilation. 
For 1;he segmented object programs, the last two characters 
of significant PROGRAM-ID characters are replaced by a 
segment number. For instance, an object program for the 
segment 76 of a program called ABCDEF is identified as 

itJ3CDEF76. 

5.3.2 Runtime Library 

Each of the COBOL runtime routines is distinguished with 
C prefix. This is done to differentiate COBOL runtime 
library from other external references which may appear 
in a load program. 
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5.4 Generated Data Formats 




FIT Flags 



5.4.1 File Information Table, FIT 
The File Information Table, FIT, contains the 
tion necessary 'to interface COBOL I/O runtime 
One FIT is produced for each File Description 
in the source program. 



FIT - Co: 



Word 
1 
2 
3 
4 
5 
6 
7 
8 
9 



informa- 
routines. 
(FD) entry 



File Connection name 



DDA (File Status) 



A (Error Declarative) cr 



^IT X^^^joM-Q''^^ &ei2a<jiv-^ 



Block Size 



Record Size 



A (Record Area) 



^n(k:^fi£l^^kl^^l^^ l\ 
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Conventions used are 



A( ) = 


address 


of 


DDA( ) 5 


DD 


address of 


FIT flags are 








Bit 15 






Current record pointer un- 
defined 


Bit 14 






Not a read 


♦Bits 12- 

y^>Bit 11 


-13 


= SEQUENTIAL access mode 
= 1 RANDOM access mode 




= 1 


SELECT OPTIONAL 


/ Bit 10 




= 1 


EOF detected 


*Bit B^ 




= 1 


START specified 


Bit ?^ 




= 1 


.Variable length 


'Bit 7 




"='1 


LOCK on a close encountered 


Bit 6 




= 1 


Reversed 


\ Bit 5 
^ " @i t 4.; 


■^^^ 


= 1 
= 1 


first time flag 
Advancing 5^ ^f-^-^^Lt^o.Ji^- 


Bit 3 


= 1 ~~ 


-Label Declarative specified 


/ Bit 2 




= 1 


Opened output 


^ Bit 1 




= 1 


Opened input 


Z' Bit 




= 1 


Opened 



iMAyW 



Bit fields with * are set by COBOL I/O routines, 

FIT - Sequential File Extension 

Following is continued from common FIT if sequential 

files. 



word c+0 



c+1 



A (Linage Setup Subroutine) /O 



A (Linage Table) /O 



C4a[_^(V-^>^ -XJOUU^ \ 
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If a data-name is specified for any of LINAGE parameters, a 
subroutine is generated by the compiler to place the binary 
contents of each data-name in the appropriate entry of the 
LINAGE table. The LINAGE table is pointed to by v/ord c+1 of 



he sequential 


FIT and 
LINAGE- 


it is a 
COUNTER 


llocated as fo] 
PIC 9(4) 


Llows: 


77 


USAGE COM?- 4. 


77 


LINAGE 








PIC 9(4) 


USAGE COMP-4. 


77 


FOOTING 








PIC 9(4) 


USAGE C0J1P-4. 


77 


TOP 








PIC 9(4) 


USAGE COMP-4. 


77 


BOTTOM 








PIC 9(4) 


USAGE COI4P-4. 



If literals are specified for all of LINAGE parameters (FOOTING, 
TOP, etc.), then the word c+0 of sequential FIT is set to zero 
by the compiler and the entries in the LINAGE Table ' are init- 
ialized with appropriate literal values. 



FIT - Relative File Extension 

c+0 
c+1 

c+2 
c+3 




DDA 


(RELATIVE KEi') 





Current 
Record Number 



in binary form. 
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5-, 



FIT >- Indexed File Extension 



15 



word c+0 
c+1 
c+2 
c+3 

c+4 




Key Length 



DDA (RECORD KEY) 



Spare 



Spare 



Current Record 
Key (^255 Bytes) 
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5.4.2 Data Name Descriptor, DP 

A Datanarae Descriptor, DD, is generated by the compiler for 

each data-name defined in the COBOL source program. Each 

DD consists of a pair of words; data-name attributes follovyed 

by the leftmost address of the item. 

The general format of a DD is 



v/ord 
word 1 



Attributes 



Byte address 



The leftmost bit of the attribute v/ord determines v/hether 
the DD is of alphanumeric or numeric type. 
An alphanumeric DD's attribute v/ord is 



1 


1 






5 


4 







T 


L 



T = indicating alphanumeric type 
L = length in characters. Maximum alphanumeric 
length is 32767 bytes. 
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A numeric DD's attribute word is 



111111 

5 4 3 2 10' 


9 8 


7 6 5 4 


3 2 


1 


T S L P 1^ 


D 


^: 


L 







T = 1 numeric type 
S = unsigned 

'— 1 signed 
L = Sign on right (trailing) 

= 1 Sign on left (leading) 
P = Sign is not separate 

= 1 Sign is separate 
D = decimal digit count. (t18 :^ D :^ 18) . 

When D is ^ 0, the assumed decimal point is [d[ digits to 
the right of the item. 
e.g. PICTURE 999PP , D = -2, L=3 

L = logical digit length. That is, the number of 9's 
in the PICTURE clause 
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5.4.3 Literals 

Each literal being allocated in the data area of the object 
program is preceded by a DD of the literal. The literal 
arguments to the runtime routine point to these DD's. 
Thus, in the runtime, literals are not differentiated from 
user-defined data-names. The literals are alv/ays left 
justified when allocated. 



literal DD 




literal 




CAt.lf='ORrj| A SOFTWARE PRODUCTS. INC. 
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5.4.'^ Array Subscript Descriptor 

An Array Subscript Descriptor, ASD, is generated for each 

array item defined. It contains the number of dimensions 

and each dimension's element length in memory- The ASD 

is produced immediately after the array DD to v;hich it 

pertains. 



word 

1 
2 



4 
5 



array item 


DD 


Number of Dimensions 


Element length of 


leveli 


•1 


level2 


II 


level3 



DD 



ASD 



Where 



Number of Dimensions 

= 1 one-dimension array 
= 2 two-dimension array 
= 3 three-dimension array 
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For instance, if arrays are described as 

05 ARRAY-X OCCURS 5 

06 ARRAY -y OCCURS 3 

07 ARRAY- Z OCCURS 2 

08 FILLER PICTURE 99 
then ARRAY-X 's ASD is 



ARRAY-X *s DD 




1 




12 



and ARRAY-Z's ASD is 



ARRAY-Z's DD 



12 
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.5.4.5 Edited Data-name Descriptor, EDD 
An Edited Data-name Descriptor, EDD, is generated for 
each edited data-name defined in the source program. It 
contains all the edit mask information necessary for inter- 
face between the object program and the edited move routines. 
The BLANK WHEN ZERO item is considered edited. The EDD 
precedes the DD of the edited data item. 



v;ord -'. 

word 
1 



Edit table address 



edited item DD 



EDD 
DD 



The edit table address points to either an alphanumeric 
or numeric edit table. 
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5.4.5.1 Alphanumeric Edit Table 
The table consists of a word that contains the 
table length in words follov;ed by edit mask entries 
Each tv;o- word entry in the table contains an edit 
mask characteristic and its repetition count. 



w 
1 

2 



n-1 



n 



Table Length {=n) 



CharacteristicjL 



Repetition County 




o 
o 
o 
o 
o 



Characteristic n/2 




Repetition Count n/2 



Where characteristic is 
= for 9, A, X 
= 1 for B 
= 2 for 
= 3 for / 
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5.4.5.2 Numeric Edit Table 

Each nvuneric edit table contains a two- word mask 
characteristic and an edit mask string which interacts 
with sending niimeric data items to produce edited data. 



w -1 
w 



111111 
54321098765 4 3 2 10 



M- 



B 




FC or 



Edit Mask String 




FC = 




M = 





r= 


1 


B = 





= 


1 


A = 





= 


1 


C = 





= 


1 


u - 




I. ^ 





float character 
no edit mask string 
edit mask editing 
no BLANK VTHEU ZERO 
BLANK ^TIEN ZERO 
zero suppress (Z) 
asterisk protect (*) 
decimal-point is period 
decimal-point is comma 

/f?pj.a,'.f!.-)bif! dec- 1 ma/ f:f>a{,L 



• ■ ( ■•.• 
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The Edit Mask String consists of follov/ing mask codes 
that represent edit character functions. 
Replaceable codes are 
"10" = digit select (ds) ; insert digit if not 

leading zero 
"11" = significant start (ss) ; same as "ds", 

but following is significant 
"12" = float start (fs) ; start floating insertion 
"13" = start immediate (si); digit is significant 

Non-replaceables are 

•0' = digit 

• • = blank 

V = stroke 

' , ' = comma 

' . ' = period 

•+• = plus 

•- ' = minus 

'$' = dollar (fixed) 

■B' = letter B 

'C = letter C 

'D' = letter D 

'R' = letter R 
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The follov/ing table lists for a given edit character 
the condition under which each mask code is used; 



Edit 
Char. 



Edit Code 
Used 



Condition 



+ 

+ 
+ 



$ 

$ 

$ 
$ 



Si 

fs 
ss 

+ 

ds 

fs 
ss 



ds 

fs 
ss 

$ 

ds 
ss 

ds 
ss 

ds 



Always 

If leading float 

If float and followed 

iiranediately by 9/-/V 

If first and non-float 

If trailing 

All others 

If leading float 

If float and followed 

immediately by 9/./V 

If first and non-float 

If trailing 

All others 

If leading float 

If float and followed 

immediately by 9/./V 

If non-float 

All others 

If follov/ed iminediately 

by 9/. A 

All others 

If followed immediately 

by 9/. A 
All others 
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5.4.6 Index-name Descriptor, XD 

For each index-name defined in the compilation, a pair 

of words is generated as follows: 



w 
1 



element length 



displacement value 



During the execution of a COBOL program, the word 1 of 
XD is used. to hold the displacement value as specified 
by a most recent SET verb. 
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5.5 Procedure Code Generation 

On the pages following/ the techniques and rationale used 

for code generation are described. 

5.5.1 Summary 

The sections describing the code generation are organized 
vinder the follov?ing general headings : 

1. Arithmetic 

a. ADD 

b. DIVIDE 

c. MULTIPLY 

d. SUBTRACT 

e. COMPUTE 

2. Conditions 

a. Class Condition 

b. Sign condition 

c. Relational condition 

3. Procedure Branching 

a. Jump Exit Table, JET 

b. Segment Interface Table, SIT 

c. GOTO 

d. GOTO DEPENDING ON 

e. ALTER 

f. PERFORM 

4 . Siibprogram Linkage 

a- Linkage Control Block, LCB 

b. CALL 

c. EXIT PROGRAM 

d. STOP 

5. Data Manipulation 

a. MOVE 

b. CONVERSION 
C. INSPECT 

d. STRING 

c. UN'STRING 
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6. 


Special Input/Output 




a. 


ACCEPT 




b. 


DISPLAY 


7. 


Sequential I/O 




a. 


CLOSE 




b. 


OPEN 




c. 


READ 




d- 


REWRITE 




e. 


WRITE 


8. 


Relative I/O 




a. 


CLOSE 




b. 


DELETE 




c. 


OPEN 




d. 


READ 




e. 


REWRITE 




f. 


START 




g- 


WRITE 


9. 


Indexed I/O 




a. 


CLOSE 




b. 


DELETE 




c. 


OPEN 




d. 


READ 




e. 


REWRITE 




f. 


START 




g- 


WRITE 


7-0, 


Sub; 


scripting/Indexing 


11. 


Table Plandling 




a. 


SEARCH 




b. 


SEARCH ALL 




c. 


SET 




d. 


OCCURS DEPENDING 
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12. ANS Debugging 

13. IBM Extensions 

a. EX/y^INE 

b. EXHIBIT 

c . TRANSFORM 

14. Sort 

a. RELEASE 

b. RETURN 

C. SORT/MERGE 

15. Report Writer 
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5.5. 2 Arithmetic 

The COBOL arithmetic routines develop all arithmetic results 
in a set of pseudo-registers allc-ted in memory. A total of 
16 pseudo registers are alv;ays allocated by the compiler,^ eight 
are used for decimal (ASCII) arithmetic and eight are used for 
binary arithmetic. The decimal pseudo-registers are called 
DECAs and are numbered 1 through 8. (i.e., DECA 1, DECA 2, 
, DECA 8). Each DECA is 38 bytes in length; this in- 
cludes an extra digit position for possible rounding. 

The binary pseudo-registers are called ACCs and each ACC is 
5 bytes long. Of these bytes, 4 bytes hold the binary result ; 
the last byte contains the assumed decimal location. 

5.5.2.1 ADD 
- idi to id2 ROUxNDED 



LOAD 


r,idj^ 


ADD 


r,id2 


RND 


r,id2 


STO 


r,id2 



- id,, id2 GIVING id^ id^ ROUMDED 



LOAD 


r,idj^ 


ADD 


r,id2 


STO 


r,id3 


RND 


r,id^j 


STO 


r,id. 
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- XA^, id^ TO GIVING id^ ROUNDED id^ ON SIZE ERROR 
SZRS 
LOAD r,id, 



.3 ..^...^^. .^^ 
SZRS 



1 

ADD ^'^^2 
STO. r,x^ 
RND ^*^^2 
STO ^'i^3 
STO r^.id^ 
SZJP next sentence 
SIZE ERROR- Statements 
next sentence 
5.5.2.2 DIVIDE 

id, INTO id^ ROUNDED id ON SIZE ERROR 



•^"1 -^ 


.i.tjL\j jLia— i\^^\jL\ U1Z.U 


SZRS 




LOAD 


r^id^ 


DIV 


r,idj^ 


RND 


r,id2 


STO 


r,id2 


LOAD 


r2,id3 


DIV 


r2,id^ 


STO 


r2,id3 


SZJP 
t 


next sentence 


SIZE 


ERROR statements 


I 
next 


sentence 
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- id^ INTO id„ GIVING id^ ROUNDED REi-lAINDER id 



•^"1 -^ 


I' -IN-' JLU.^ ' 


ON SIZE ERROR 


SZRS 




LOAD- 


r,id2 


DIV 


r^idj^ 


STO 


r,r2 


RND 


r^id^ 


STO 


r,id2 


MULT 


^2'i^l 


LOAD 


^3'i^2 


SUB 


^3-^2 


STO 


r3,id^ 


SZJP 


next se: 



SIZE ERROR statements 
next sentence 
5.5.2.3 MULTIPLY 



id, BY id^ ROUNDED id^ ROUNDED 



.A-VA ^ i-t 


J. J. V.4 „ XX >- 


LOAD 


r^idj^ 


MULT 


r,id2 


RND 


r^id^ 


STO 


r,id2 


LOAD 


^2'i^l 


MULT 


^2'^^ 


RND 


r2,id3 


STO 


^2'^S 
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5.5.2.4 SUBTRACT 
- id, id^ id^ FROM id^ id^ 



""1 " 


""2 -^"3 ^ 


LOAD 


r,idj^ 


ADD 


r,id2 


ADD 


r,id3 


LOAD 


^2'i^4 


SUB 


r^.T 


STO 


^2 '^^4 


LOAD 


r3,id5 


SUB 


r3,r 


STO 


r3,id5 
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5.5.2.5 COMPUTE 

- id, ROUNDED id- ROUNDED =A+B-C*D**E+F 



JI.Wl.i| IX' 


<^ y~f L^ U IZj LJ J 


LOAD 


r,A ■ 


ADD , 


r,B 


LOAD 


r^.D 


EXP 


r^^E 


MOLT 


r^^C 


SUB 


r,r2 


ADD 


r,F 


STO 


r,r3 


PND 


r,idj^ 


STO 


r,id^ 


RND 


^3'i^2 


STO 


^3'i^2 



id, = A ** B + (-C + D) 



LOAD 


r,A 


EXP 


r,B 


LOAD 


T^tC 


NEG 


^2 


ADD 


^2'° 


ADD 


r,r2 


STO 


r,id^ 
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5.5.3 Conditions 

5.5.3.1 Class Condition 

Class condition test is performed on an alphanumeric, 
alphanxomeric edited, or numeric edited item to determine 
v/hether the item is composed entirely of ALPHABETIC 
(A through Z and space) or NUI4ERIC (0 through 9) 
characters. In addition, the NUMERIC test may be 
performed on a numeric item while the ALPHABETIC test 
may be performed on an alpahbetic item. 

If the PICTURE of the numeric item contains an 
operational sign, a valid sign must be present. 
Valid operational signs are A-I and ( for positive 
and J-R and ] for negative. In the case of SEPARATE 
SIGN, valid operational signs are + and -. 

IF id ALPHABETIC 
CLSA id 
BEQ false 

t 

true statement 



false: next sentence 
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- If id NOT ALPHABETIC 
CLSA id 
BNE false 



true statement 
false: next sentence 



- If id NUMERIC 
CLSN id 
BEQ false 

T 

true statement 

i 

false: next sentence 
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5.5. 3. Z SIGN Condition 

The sign condition tests are preformed on numeric 

items or arithmetic expressions. 

- If id POSITIVE statement 

LOAD r,id 

TEST r 

BLE next sentence 



T 



statement 



i 



next sentence 



If (A 


+ B - C) NOT NEGATIVE statement 


LOAD 


r,A 


ADD 


r,B 


SUB 


r,C 


TEST 


r 


BLT next sentence 
statement 


V 

next 


sentence 



The false branches generated for sign conditions are 
summarized belov/: 



POSITIVE 


— BT.K 


NOT POSITIVE 


— BGT 


NEGATIVE 


— BGE 


NOT NEGATIVE 


— BLT 


ZERO 


— BN'E 


NOT ZERO 


— BEQ 
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5.5.3.3 Relational Condition 

Relationals are classified as either alphanumeric or 

numeric. . • 

5.5.3.3.1 Alphanumeric 

The alphanumeric comparison proceeds byte by byte from 

left to right until an inequality is encountered. 

li/hen items of unequal length are compared, the excess 

characters in the longer of the tv;o items are compared 

to spaces. 

IP id, > id^ AND id^ 



CWPAN 


id^, id2 


BLE 


false 


CMPAN 


xd^, id^ 



T 

True statement 
false: Next sentence 



For relational tests involving an ALL 'leteral' v/here 
the 'literal' contains more than just a single charac- 
ter, the string of characters comprising the 'literal' 
is repeatedly compared to successive "string" unit of 
characters. 
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IF ALL 'literal' = id 

COMPFC flag, literal, id 

BNE false 

t . 

True statement 

false: Next sentence 

where flag = first operand is figurative 

constant 

= 1 second operand 

5.5.3.3.2 Numeric 

Numeric comparisons involving single-word binary 
data-names are performed in binary mode: 

IF id^ = id2 AND id^ 

BLOAD . r, id^ 

BCOMP r, id2 

BNE false 

BCOMP r, id 

BNE false 

true 



BNE 

4 



true statement 

false: next sentence 

Niimeric comparisons involving other than single- 
word binary data-names are performed in decimal 
mode . 
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true 



IF id 


= id2 OR 


^"3 


LOAD 




r,idj^ 




COMP 




r,id2 




BEQ 




true 




COMP 




r,id3 




BNE 




. false 




. A 








true 


Statement 




V r 









false: next sentence 

Comparisons involving index-names and/or index data 
items are performed in binary mode. . 

Comparison of an index name with other than an 
index data item 
- IF indcx-narae > id 

SETLD r, index-name 

BCMP r, id 

BLE false 

true statement 
false: next sentence 

Comparison involving two index-names 
IF index-namej^ < index-name, 
SETLD r, index-name^^ 

SETLD r2/ index-name2 
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BCOMP r, r2 
BGE false 
true: 

true statement 

I 
false: next sentence 

Comparison of an index data item with an index- 
name or with another index data item 
- IF index data item = index-name 
BLOAD X, index data item 
BLOADX r2 / index-name 
BCOtIP r, r2 

BNE false 
A 

true: 

true statement 
false: next sentence 
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5.5.3.4 An example of code generated by IF statement 
IF A ALPHABETIC IF B = C AJJD (D OR E) 
AND F STOP '1' ELSE STOP '2' ELSE STOP '3' 



true. 



false. 



false. 



CLSA 


A 


BEQ 


false.. 


LOAD 


r,B 


COMP 


r,C 


BNE 


false. 


COMP 


r,D 


BEQ 


true. 


COMP 


r,E 


BNE 


false^ 


COMP 


r,F 


BNE 


false^ 


STOP 


'1' 


B 


next sentence 


STOP 


•2' 


B 


next sentence 


STOP 


•3' 



next sentence 
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5.5.4 PROCEDUPvE DPJiNCHING 
5.5.4.1 Jump Exit Table (JET) 

To process ALTER and PERFORM EXIT statemenrs and also to 
handle the compiler-generated GO TO which links the sections 
with different priority segment numbers, a table called the 
Jump Exit Table (JET) is produced to cause the desired pro- 
gram counter modification. A JET is produced in the static 
area. 

The following conditions require an entry in the table; 

1. Subject procedure-name of ALTER statement 

2. Exit procedure-name of PERFORM statement 

3. Section-name v;hich is followed by a section with 

different segment number. 

An independent segment (priority number >; 50) is always 
considered to be in its initial state each time it is made 
available to the progrcim, while a fixed segment is always 
made available in its last used state. 

In order to satisfy above requirements, a single JET is 
generated in the data area of the root module for all 
segments. Entries for each independent segment are grouped 
together so that an initialization pi-ocess of entries can be 
performed v/hen an independent segment is made available. 
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5.5.4.2 Segment Interface Table (SIT) 

All branches into an overlayable segment are always to a 
single entry point. This is preferrable to having multiple 
entry points since a branch to another overlayable segment 
is effected through the MARK and CALL mechanism. 

Vlha.t is being passed to the overlay segment is an unique 
number assigned to each procedure-name referenced by other 
segments. The number is used as an index into the Segment 
Interface Table and the contents .of the pointed to entry 
is placed in the program counter- 
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At the beginning of root module with segmentation present, 
a segment interface handler is generated. 
SEGMENT-INTERFACE-HANDLER: 

LWL SEGMENT-INTERFACE-HANDLER 



STW 


C_SIH 


MARK 





LWL 


C_SEGBS 


STW 


2,2 


LW 


, C_SEGN 


CALL 


4 


EXIT 





ji^^^ru^ cfii^ 



At the segment entry point, 
SEGMENT-nn-ENTRY : 

LWL program address 

C_SEGLOC 

SEGMENT-EXIT 

C_SEXT 

6, SIT 



STW 

LWL 

STW 

Llfl 

BTOS 
SEGMENT-EXIT : 

EXIT 
SIT: 

ADDR procedure-name 1 

ADDR procedure-name2 



ADDR procedure-namCj^ 
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5.5.4.3 GO TO 

- if procedure-name is in the root segment or in the same 
segment: 

BRA , procedure-name 

- if procedure-name is in another segment 

MARK "14", C_GOSG 
LWL segment base 
LWL displacement intoVlya* 
CALL 3+2 
C#GOSG performs following functions: 
C_SEGBS := segment base 

C_SEGN := (displacement into SIT & "7FFF") 
C_SEXT := 

If displacement $(15) = 1, then the branch is 
from root to a segment, MARK + 6 := C_SIH 
If displacement $(1,0) = 0, then the branch is 
from segment to another segment, 
MARK + 6 := C_SEXT 
(MARK ADDRESS +4) := C_S1H 

- a simple GO TO (i.e., without procedure-name) 
n MARK "14",C_G0I 

Ll^ JET of current pa;:, graph-name 
CALL 3+1 
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5.5.4.4 GO TO DEPENDING ON 

- if the procedure-names referenced in the statement are 
all defined in the same segment or in the fixed segments 

MARK "14",C_G0DP 

Lr where r=ACC register number 

Ln where n=number of proc arguments 

LWL proC]^ 

LWL proc2 



LWL 
CALL 



proc^ 

3 + 2 + n 



if any of the procedure-names referenced is in another 
segment, a pair of words is generated for each pro- 
cedure name 

"14",C_G0DPSG 

where r=ACC register number 

where n=number of proc arguments 

segment base of proci j . ^ . . 
^ -^ I if procj is m 

SIT A of proci ( another segment 



MARK 

Lr 

Ln 

LWL 

LWL 

LO 

LWL 



proc2 



if proc2is in the 
same segment 



LWL 
LWL 
CALL 



segment base of proCj, 
SIT A of procj^ 
3 + 2 + f2*n) 



proc 



n 
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5.5.4.5 ALTER 

- in the root segment or in the same segment 

MARK "14",C_ALTER 

LWL ^^^^2 

LWL JET of proc, 

CALL 3+2 

- in another segment 

MARK "14",C_ALTRSG . 

JJWL segment base of proc- 

LWL SIT A of proc 

LITL JET of proc, 

CALL 3 + 3 

5.5.4.6 PERFORM 

The general PERFORM sequence is as follows: 

- in the root segment or in the same independent segment 

MARK "14",C_PERFM 

LWL PJ^oc^ 

LWL JET of proc- 

CALL 3+2 

from the root segment to an independent segment 
MARK "14", C_PERFMS 

segment base of proc^ 



LWL 



LWL SIT A of proc 

LWL JET of proc- 

LWL segment base of return 

LWL SIT A of return 

CALL 3+5 
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In the following descriptions of PERFOPJl, 'perform' is 
documented to mean one of the general formats above. 
PERFORM proc, thru proC2 

perform 

PERFMT JET of proc2 



PERFORM proc, id, times 



LOAD 
TEST 
BLE 
STO 



label,: perform 



r,id^ 
r 

label- 
r,temp 



label- 



label. 



label. 



LOAD 


r , temp 


SUB 


r,=l 


STO 


r,temp 


TEST 


r 


BGT 


labelj^ 


: PERFMT 


JET of 


PERFORM p^ 


UNTIL A + B ■ 


: LOAD 


r,A 


ADD 


r,B 


SUB 


r,C 


COMP 


r,D 


BEQ 


label 2 


perform 




B 


labelj^ 


: PERFMT 


JET of 



D 
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PERF0R2-1 proCj^ THRU proC2 VARYING id FROM id^ BY id^ 
UNTIL cond, /iFTER id^ FROM id^ BY id^ UNTIL cond^ 



label. 



LOAD 

STO 

LOAD 

STO 

cond, 

Bxx 



4 
r,id2 

r,id^ 
r^.idg 

r2,id^ 



true. 



labels : cond. 



Bxx 



true. 



true. 



perform 




LOAD 


^3'^*^4 


ADD 


^3'^*^6 


STO 


^3 '^^4 


B 


label2 


LOAD 


r,,id3 


STO 


^4'^*^4 


LOAD 


^5'i^l 


ADD 


r3,id3 


STO • 


r3,idj^ 


B 


label j^ 


PERFMT 


JET of 
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5.5.5 Subprogram Linkage 

5.5.5.1 PROCEDURE DIVISION USING 

A table called the Linkage Control Block, LCB, is generated 

for the USING parameter list. The table is referenced by 

C_LINK routine and is used to transfer the absolute addresses 

to the Linkage Section DDs. The format of LCB is: 



arg. 



arg 



?2 



arg. 



N 




DD address of ^^^9^ 



DD address of subordinate. 



A of ' subordinate. 



DD address of subordinate 



N 



A of subordinate 



N 



-1 



] 



sxibordine 



Isubordin; 
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5.5.5.2 CALL 'ABC USING id^^, id , id^ 

MARK "14", ABC 

LWL n n=n\ainber of arguments 

LWL id^ 

LWL id2 



LWL id 
n 

CALL 3 + 1 + n 



- at the beginning of subprogram ABC 

MARK "14",C_LINK 

LWL n 

LWL LCB LCB = Linkage Control Block 

CALL 3+2 

5.5.5.3 EXIT PROGRAM 

- in main program 

MARK "14",C_G0I 

LWL JET of current proc 

CALL 3+1 

- in subprograms 

EXIT 
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5.5.5.4 STOP 

MARK C_EXIT 

LO 

CALL 3+1 
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5.5.6 DATA MANIPULATION 
5.5.6.1 MOVE 

The transfer of data to an alphanumeric item is performed 
with a 'Move' operation while the transfer to a numeric 
item is done with a 'load/store' sequence. The table 
below srmimarizes the permissable moves and the routines 
that will be generated by the compiler to handle all 
combination of these moves: 







i 


i/ 














""~-->§ource 
Receiving----- 


. G 


A 


AN 


ANE 


N 


NE 


FC& 
ALL 


P 


B 


G 


MVG 


MVG 


MVG 


MVG 


MVG 


MVG 


MVFC 


MVG 


MVG 


A 


MVG 


MVA 


MVA 


MVA 


-- 


— 


rwFC 


— 


— 


AN 


MVG 


MVA 


MVA 


MVA 


MVA 


MVA 


MVFC 


CVPN 
MVA 


CVBN 
MVA 


ANE 


MVG 


MVANE 


MVANE 


MVANE 


MVANE 


MVANE 


MVFCE 


CVPN 
MVANE 


CVBN 
MVANE 


N 


MVG 


— 


LOAD 
STO 


— 


LOAD 
STO 


— 


LOADFC 
STO 


CVPN 
STO 


CVBN 
STO 


NE 


MVG 


— 


LOAD 
STE 


— 


LOAD 
STE 


MVANE 


LOADFC 
STE 


CVPN 
STE 


CVBN 
STE 


P 


MVG 


— 


LOAD 
CVNP 


— 


LOAD 
.CVNP 


— 


LOADFC 
CVNP 


CVPN 
CVNP 


CVBN 
CVNP 


B 


MVG 


— 


LOAD 
CVNB 


1 


LOAD 
CVNB 


— 


LOADFC 
CVNB 


CVPB 
BSTO 


BLOAD 
BSTO 


JR 


MVAJR 


MVAJR 


MVAJR 


MVAJR; 


LOAD 
MVAJR 


MVAJR 


MVFCJR 


CVPN 
MVAJR 


CVBN 
MVAJR 
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v;here G = group 

A = alphabetic 

AN •= alphanumeric 

ANE = alphanumeric edited 

N = numeric (DISPLAY forr-t) 

NE = numeric edited 

FC = figurative constant 

ALL = ALL 'literal' 

P = packed (COMP-3 format) 

B = binary (COMP & COMP-4 format) 

JR = justified right 

- group move 

When either the njourse or the receiving field is a group 
item, a call to C_MVG is generated so that a move is 
performed without the mode conversion 

MARK "14",C_MVG 

LWL physical length of source 

LWL DD of source item 

LWL physical length of target 

L^^ DD of target item 

CALL 3+4 

- alphanumeric move 

MARK "14",C_MVA 

LWL DD of source item 

LWL DD of receiving item 

CALL 3+2 

ALL 'literal' source to an alphanumeric item 

MARK "14",C_MVFC 

LWL DD of ALL 'literal' 

LWL DD of receiving item 

CALL 3+2 
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- ALL 'literal' source to an alphanumeric edited item 

MARK "14%C_MVFC 

LWL DD of ALL literal 

LWL DD of receiving item 

CALL 3+2 

- alphaniimeric edited move 

MARK "14",C__MVANE 

LWL DD of source item 

LWL DD of receiving item 

CALL 3 + 2 

when the receiving item is specified with a JUSTIFIED 
RIGHT caluse and the source item is not a figurative 
constant. 

MARK "14", C_MVA JR 

LWL DD of source item 

LWL DD of receiving item 

CALL 3+2 

a figurative constant of an ALL literal source to a 
JUSTIFIED RIGHT item 

MARK "14", C_MVFC JR 

LWL DD of source item 

LWL DD of receiving item 

CALL 3+2 

a move of ALL 'literal' source to a numeric or nxomeric 
edited item generates a call to C_LOADFC. CJLOADFC loads 
repetitive 'literal' or figurative constant into pseudo- 
register r. 

MARK "14", C_LOADFC 

Lr 

LWL DD of source item 

CALL 3+2 
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ntimeric move 



MARK 


"14",C_L0AD 


Lr 




LWL 


DD of source item 


CALL 


3 + 2 


MARK 


"14",C_ST0 


Lr 




LWL 


DD of target item 


CALL 


3+^2 



numeric edited move 



MARK 


"14",C_L0AD 


Lr 




LWL 


DD of source item 


CALL 


3 + 2 


MARK 


"14",C_STE 


Lr 




LWL 


DD of target item 


CALL 


3 + 2 


1 Conversions 



Any of the conversion routines listed below may be thought 
of as a load, since they can have register receiving ar- 
gument. 

CVPN - packed to numeric (ASCII) 
CVBN - binary to nvmieric (ASCII) 
CVPB - packed to binary 

'Store' conversion routines (register source) are 

CVNP - niimeric to packed 
CVNB - numeric to binary 
CVBN - binary to numeric 
CVBP - binary to packed 
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For instance, a move of packed source to a nTomeric 
edited item produces following sequence of code: 



MARK 


"14",C_CVPN 


LWL 


DD of packed source 


Lr 




CALL 


3 + 2 


MARK 


"14",C_STE 


Lr 




LWL 


DD of receiving edit item 


CALL 


3 + 2 



Another example, a statement MOVE A TO B, C, D, E. 
where A & B are packed items 

C is a numeric item 

D is a binary item 

E is a numeric edited item 



CVPN 


A, 


X 


CVNP 


X, 


B 


STO 


T, 


C 


CVNB 


X , 


D 


STE 


X , 


E 



When a numeric item is being compared to either an index 
data item or an index- name, a conversion to binary mode 
is required. 



MARK 


••14",C_CVNB 


LWL 


DD of item 


Lr 




CALL 


3 + 2 
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5.5.6.3 INSPECT 



LWL DD of identifier- 1 
inspect argument. 



inspect argument- 




inspect argument^ 

•fc egmiitator attriba 

MARK " 14 " , C_INSPCT 

CALL 3 

Where 'inspect argument* is as follows: 

for TALLYING 



LWL 

l;-?l 

LWL 
LWL 

for REPLACING 

LWL 
LWL 
LWL 
L^VL 

and 'attribute' is 

- Bit 7 -^ 



Attribute 

DD of identifier-3 cf^ 
DD of identifier-2 or 
DD of identifier-4 or 



V 



attribute 

DD of identifier-5 <n- i 
DD of identifier-6 or 
DD of identifier-7 or 



-u •= ^J^^y^' 



k,&i^ 



it 



^ma t or 



SP 



)i 1 ^ %^yywi M^>''- -^-•'^■•' 



E/t I 



Qr^'y 



Bit 6 = TALLYING 
Bit 5 = REPLACING 
Bit 4 = AFTER INITIAL 
Bit 3 = BEFORE INITIAL 
Bits 2-0 = CHARACTERS 
= 1 ALL 
= 2 LEADING 
= 4 FIRST 



>r*''^ ■' I ,■ 



B4rs^ 
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nn 



5.5.6.4 STRING 

LWL 

LWL 

[LWL 

LWL 

[LWL 
LWL 



String attribute 
DD of identifier-7 
DD of identifier-8] 
delimited attribute, 

DD of identifier-3] 
DD of identifier-1 



if POINTER 



if id-3 DELIMITED 



LWL 
LWL 

LV^ 

-[««►— 
MARK 
,. CALL 
BRA 



delimited attribute 



N 



DD of identifier, 



N 



string terminator 



---•e. 



'14",C STRG 



-l a bel] overflow ca e it, if -e VERFL O W 

3 . overflow exit 
next sentence 



if OVERFLOW specified 



label: t 

OVERFLOW statements 
"next sentence: 

string attribute = 

Bit = OVERFLOW present 
Bit 1 = POINTER present 

delimited attribute = 

Bits 15-8 = 1 SIZE 

= identifier/literal 
Bits 7-0 contains the niimber of 'STRING' identifiers/ 
literals 
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5.5.6.5 UNSTRING 



LWL 
LWL 
[LWL 
[LWL 
LWL 
LWL 



unstring attribute 
■DD of identifier-1 
DD of identifier-10] 
DD of identifier-11] 
• delimited ' option 
DD of identifier-y 



POINTER 
if TALLYING 



LWL 

LWL 

[LWL 

[LWL 



label; 



' into ' option 
DD of id6ntifier-4 
DD of i'dentifier-5] 
DD of/identifier-6 3 




if DELIMITER 
if COUNT 



-1 unstring terminator 

label] overflow exit if OVERFLOW 
"14",C UNSTRG 



next sentence 



next 



/ 



. OVERFLOW statements 
/ ir 
entence: 



if OVERFLOV7 
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unstring attribute is 

i 

Bit = OVERFLOW present 
Bit 1 = POINTER 

Bit 2 = TALLYING 
'delimited' option is 

Bit = ALL 

Bit il5 = C for 'delimited' option 
*into' option is 

Bit = DELIMITER present 

1 

Bit 1 = COUNT present 

Bit 15 = 1 for 'into' option 

5.5.7 ' special INPUT/OUTPUT 

5.5.7.1 Accept 

If the size of the accepting data item is greater than the 

maximvim of logical device, as many input records as necessary 

are read. 

FROM CONSOLE 

MARK "14", C_ACPTC 

U-TL DD of id 

CALL 3+1 
FROM SYS IN 

MARK "14",C_ACPTS 

LWL DD of id 

CALL 3+1 
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ACCEPT DATE/DAY/TIME statements generated two calls: 
one to load a compiler-generated item with a DATE/DAY/TIME 
value and another to store the value into the accepting 
time. The store call follows the MOVE statement rules. 
ACCEPT DATE 

MARK "14", C_ACPTDT 

LWL DD of CURRENT-DATE item 

CALL 3+1 
The routine loads CURRENT-DATE with a YYMMDD value. 

ACCEPT DAY 

MARK "14", C_ACPTDY 

LWL DD of DAY-OF-WEEK item 

CALL 3+1 
The routine loads DAY-OF-WEEK with YYDDD value. 
Where DDD = Julian day. 

ACCEPT TIME 

MARK "14", C_ACPTTM 
LWL DD of TIME-OF-DAY 
CALL 3+1 
The routine loads TIME-OF-DAY with HHMMSSHH value, 
where H = hour 

M = minute 
S = second 
h = hundredth of second 
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5.5.7.2 DISPLAY 

A maximum logical record size is assumed for each device 
and clS many records as necessary are written to display 
all the operands specified. 
UPON CONSOLE 

MARK "14",C_DSPLC 

JJWL display attribute 

LWL DD of operandj^ 

LWL DD of operand2 



LWL DD of operandj^ 
CALL 3 + 1 + n 
where display attribute is 

Bit 15 = display continue code 
Bits 7-0 - number of arguments. The maximum 
is five per call. 

UPON SYSOUT 
A call to C_DSPLS is generated instead. 

5.5.7.3 STOP 'literal' 

MARK "14", C_STOPLT 

LWL DD of literal 

CALL 3+1 
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5.5.8 SEQUENTIAL I/O 

5.5.8.1 CLOSE 

MARK "14", C_CLS SQ 
LWL close attribute 
LWL FIT of file 
CALL 3+2 
Where close attribute is 

Bit = CLOSE REEL/UNIT 

1 = CLOSE WITH LOCK 

2 = NO REWIND 
5 = REMOVAL 



5.5.8.2 OPEN 
MARK 
LWL 
LWL 



"14",C_0PNSQ 
open attribute 



fLWfc- 
CALL 



if specified 



FIT of file 
■^^C'Declarative JET 
iri3 + 2[+ 1] -<i 

Where open attribute is 
Bit 2 = NO REWIND 

3 = REVERSED 

4 = EXTEND 

5 = I-O 

6 = OUTPUT- 

7 = INPUT 

8 = Declarative JET argument present 
r. 
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5.5.8.3 READ 

- READ record-name INTO id AT END imperative-statements 

MARK ••14",C_REDSQ 

LWL read attribute 

LWL FIT of record-name's file 

CALL 3+2 

BRA label^ at end condition exit 



t 



move record-name to id 

I 

BRA label2 

K 
label^: 

AT END imperative-statements 
label2: next sentence 

Where read attribute is 

Bit = AT END imperative statements present 

5.5.8.4 REWRITE 

- REWRITE record-name FROM id 

Move id to record-name 

MARK C_RWRSQ 

LO 

LWL FIT of record-name's file 

CALL 3+2 
NOTE: The sequential I/O REWRITE is meaningful only in a mass 

storage (disk) file and the file must be in I-O access 

mode. 
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5.5.8.5 WRITE 

MARK 



"14",C_WRTSQ 

write attribute 

FIT of record-name's file 



DD of record-name o^~^ .'P f^'-^^ ^X^ 




DD of identifier-2,,;, -r 



label: 

EOP imperative statements 
next sentence: 
Write attribute is 

Bit = EOP present 

1 = PAGE 

2 = space "PoSlTi ^^ '^'^ 

3 = BEFORE ADVANCING 

4 = AFTER ADVANCING 

5 = spa^e r ': : •- .JI .! "^'^ '' " -^-^ 



if EOP is specified 



6 --ADVftiJJCTtTG integer present 

7 = -ADVANCING- -id©»ti-f-ier- presenrt- 
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5.5.9 RELATIVE I/O 
5.5.9.1 CLOSE 

MARK 

LWL 

LWL 

CALL 
Close attribute ' is 

Bit 1 = CLOSE WITH LOCK 



"14",C_CLSRL 
close attribute 
FIT of file 
3+2 



5.5.9.2 DELETE 

DELETE file INVALID KEY imperative statement 



MARK 


"14",C_DLTRL 


LWL 


delete attribute 


LWL 


FIT of file 


CALL 


3 + 2 


BRA 


' label 


BJ 


lA 


next sentence 



label: 

INVALID KEY imperative statements 
next sentence: 
Delete attribute is 

Bit = INVALID KEY present 



if INVALID KEY 
is specified 
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5.5.9.3 OPEN 
MARK 
LWL 
LWL 



"14",C_0PNRL 
open attribute 
FIT of file 



jTliWir XeA" Declarative JETl/ if specified 
CALL d^3 + 2 [+1] -^ 
Where open attribute is 
Bit 5 = I-O 
Bit 6 = OUTPUT 
Bit 7 = INPUT 
Bit 8 = Declarative JET present 

5.5.9.4 READ 

- READ file INTO id AT END statements 



MARK 


"14",C_REDRL 


LWL 


read attribute 


LWL 


FIT of file 


CALL 


3 + 2 


[BRA 

1 


label ] 



t 



Move temp to KEY 

Move record-name to id 

4- 

BRA labels 



abnormal exit if AT END 
present 

if KEY conversion required 



label, : 



AT END/INVALID statements 

■I- 
label^: next sentence 

Where read attribute is 

Bit = AT END/INVALID KEY present 

Bit 2 = NEXT 
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5.5.9.5 


REWRITE 






MARK 


"14",C_RWRRL 




LWL 


Rewrite attribute 




LWL 


FIT of file 




CALL 


3 + 2 




BRA 


label 




B 


RA 


- next sentence 



label; 

INVALID KEY statements 

Y 
next sentence: 

Rewrite attribute is 

Bit = INVALID KEY present 



5.5.9.6 


START 






MARK 


"14",C_STTRL 




LWL 


Start attribute 




U^TL 


FIT of file 




CALL 


3 + 2 




BRA 


label 




E 




next sentence 



label: 

INVALID KEY statements 

next sentence : 

Start attribute is 

Bit = Il-IVALID KEY present 
Bit 2 = EQUAL relational 
Bit 3 = GREATER relational 
Bit 4 = NOT LESS relational 
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5.5.9. 


7 


WRITE 

MARK 

LWL 

LWL 

CALL 

BRA 






4 


5RA 


lahel: 









"14",C_WRTRL 

Write attribute 

FIT of file 

3 + 2 

label 

next sentence 



INVALID KEY statements 
next .sentence: 
Write attribute is 

Bit = INVALID KEY present 
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5.5.10 INDEXED I/O 




5.5.10.1 CLOSE 




MARK 


"14", C-CLSIX 


LVJL 


close attribute 


U<IL 


FIT of file 


CALL 


3 + 2 



Where close attribute is 

Bit 1 = CLOSE V7ITH LOCK 



5.5.10.2 DELETE 




^ / 


MARK 




"14", C-DLTIX 


LWL 




delete attribute 


LWL 




FIT of file 


CALL 




3 + 2 


BRA 




label 


BRA 




next sentence 


label : t 

INVALID 


KEY statements 


I 






next sentence: 




Where delete 


attribute is 


Bit 


= 


INVALID KEY present 


5.5.10.3 OPEN 






MARK 




"14", C-OPNIX 


LV7L 




open attribute 


L^'O:, 




, FIT of file 


itVKr 




-^^Declarative JETI 


tcALL 




Where open attribute is 


Bit 5 


= 


I-O 


Bit 6 


= 


OUTPUT 


Bit 7 


r= 


INPUT 


Bit 8 


= 


Declarative JET present 



normal return 
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5.5.10.4 READ 

- READ file INTO id INVALID KEY statements 
MARK 



LWL 

CALL 

BRA 



"14", C-REDIX 

read attribute 

FIT of file 

3 + 2' 

label^ AT END/INVALID KEY exit 



FIT of file -7 

PP <5J Js.i^-y^i'^'^^ 



move record-name to id 



BRA 
(gb^l^ 



label. 




INVALID KEY statements 



labels :next sentence 
I'Jhere read attribute is 



Bit = AT ENp or INVALID KEY present . 
Bit 2 = NEXT () \ 
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;.5.10.5 


REWRITE 


^ - — 




MARK 


"14", C-li^^IX 




LWL 


rewrite attribute 




LV7L 


FIT of file 




CALL 


3 + 2 




BRA 


label 




BRA 


next sentence 



label: 



INVALID KEY statement 



next sentence 

Rewrite attribute is. . 

Bit = INVALID KEY present 



5.5.10.6 


START 






MARK 


"14", C-STTIX 




LWL 


start attribute 




LI^ 


PIT of file 




I LWL 


DD of data-name] 




CALL 


3 + 2 [+1] 




BRA 


label 




BRA 


next sentence 



label 



= 1 



INVALID KEY statements 



next sentence: 

VJhere start attribute is 

Bit = INVALID KEY present 

Bit 1 = data-name argument present 

Bit 2 = EQUAL relational 

Bit 3 = GREATER relational 

Bit 4 = NOT LESS relational 
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5.5.10.7 WRITE 



t 



move id to record-name 



MARK 

LtVL 

U-JL 

CALL 

BRA 

BRA 



"14", C-WRTIX 

write attribute 

FIT of record-name's file 

3 + 2 

label 

next sentence 



label 



INVALID KEY statements 



next sentence: 

Where write attribute is 

Bit = INVALID KEY present 
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5.5.11 SUBSCRIPTING/INDEXING 

5.5.11.1 Subscript 

MARK "14", C-SCRIPT 

JML DD of table item 

WfL Sum of constant subscripts 

lAJl, DD of subscript- or 

LWL DD of subscript- or 

LTVL DD of subscript^ or 

LWL DD of duramy 

CALL 3+6 
C-SCRIPT places the computed address of a table item into 
the address word of dummy DD. 

5.5.11.2 Index 

MAPJC "14", C-INDEX 

LWL DD of table item 

LT'TL Sum of constant subscripts 

Ll-TL DD of subscript- or 

LWL DD of subscript- or 

LWL DD of subscript- or 

LWL DD of dummy 

CALL 3+6 
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5.5.12 Table Handling 



5.5.12.1 SEARCH 
MARK 

J LV7L 

LWL 
CALL 
label^ :MARK 
LWL 
mL 
CALL 



"14", C-SRCI 

Search attribute 

Maximum occurrence # 

DD of OCCURS DEPENDING item 

XD of varying index-rname 

3 + 3 

"14", C-SRC 

XD of varying index-name 

label2 
3 + 2 



AT END statements 



label 



BRA 



next sentence 



2: 



WHEN, condition 



BRA 



next sentence 



label. 



1 



^ 



tVHEN 



>" WHEN- - V7HEN 
2 n 
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labeln: MARK 
Lr 
LWL 
CALL 
MARK 
Lr 
LWL 
CALL 
MARK 
Lr 
LWL 
CALL 
BRA 

next sentence: 



"14",C_BL0AD 

DD of binary literal 1 

3 + 2 

"14",C_SETAX 

XD of varying index-name 

3 + 2 

"14",C_SETAX 

XD of second varying index-name 

3 + 2 

label. 



if specified 



where search attribute is 

Bit 0=0 maximum occurrence argument is literal 

= 1 maximum occurrence argument is data-name 
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5.5.12.2 SEARCH ALL 
MARK 
LWL 
LWL 
LWL 
LWL 
CALL 
MARK 
LWL 
L^^ 
CALL 



label^ : 



label 



2* 



label. 



"14",C_SRCI 

Search attribute 

Maximiim occurrence # 

DD of OCCURS DEPENDING item 

XD of varying index-name 

3 + 3 

"14",C_SRCA 

XD of varying index-name 

labels 



3 + 2 



t 



AT END statements 

I 

BRA 



MARK 
LWL 



CALL 

t 

WHEN condition 



Y 

MARK 



LWL 



CALL 
A 



next sentence 

"14",C_SRAD 

Search direction attribute 

3 + 1 



"14",C_BNE 
labels 



3 + 1 



WHEN imperative statements 



BRA 
BRA 



next sentence 
label. 



next sentence; 
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Where search attribute is 

Bit 0=0 Maximum occurrence argument is literal 
= 1 Maximum occurrence argument is data- 
name 
and search direction attribute is 

Bit 15 = DESCENDING 
= 1 ASCENDING 
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5.5.12.3 SET 



The compiler generates calls to convert from and to occurrence 
number and array offset values when either the sending or the 
receiving field is an index-name. 



Permissable SET fields are: 



Case 


Soured 


Receiving 


Action 


1 


integer 


index-name 


occur # — > offset 


2 


index data item 


index-name 


no conversion 


3 


index-name 


index-name 


offset— > occurs — ?- offset 


4 


index data item 


index data item 


no conversion 


5 


index-name 


index data item 

• 


no comversion 


6 


index-name 


integer 


offset — > occurs 



Case 1 



integer 

MARK 
Lr 

LWL 

CALL 

MARK 
Lr 

LIVL 
CALL 



-> index-name 
"14",C_CVNB 

DD of integer item 
3 + 2 
"14",C_SETST 

XD of index-name 
3+2 



Case 2 



index data item ■> index-name 



MARK 
Lr 
LWL 
CALL 

MARK 
Lr 
LWL 
CALL 



"14",C_BL0AD 

DD of index data item 

3+2 

"14",C_BSTX 

XD of index-name 
3 + 2 
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Case 3 



Case 4 



Case 5 



index-name 

MARK 

Lr 

LWL 

CALL 

MARK 

Lr 

LWL 

CALL 



->- index-name. 



1 ' ^ — ^" """..-2 
"14",C_SETLD 

XD of index-name, 
3 + 2 
"14",C_SETST 

XD of index-name. 



3 + 2 
index data item, — 



->-index data item. 



MARK 

Lr 

LWL 

CALL 

MARK 

Lr 

LWL 

CALL 

index- name - 

MARK 

Lr 

LWL 

CALL 

MARK 

Lr 

LWL 

CALL 



'14",C BLOAD 



DD of index data item 
3 + 2 
"14",C BSTO 



DD od index data item, 
3 + 2 

>-index data item 



"14",C_BL0ADX 

XD of index-name 
3 + 2 
"14",C_BST0 

DD of index data item 
3 + 2 



Case 6 index-name ^integer 



MARK 

Lr 

LWL 

CALL 

MARK 

Lr 

LWL 

CALL 



"14",C_SETLD 

XD of index-name 
3 + 2 
*'14",C_BSTO 

DD of integer item 
3 + 2 
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5.5.12.4 SET UP/DOTOI 



MARK 


"14",C_BL0AD 




Lr 






LWL 


DD of integer 




CAT.T, 


3 + 2 




MARK^ 


"14",C_BNEG 


if DO^VN BY 


Lr 


/ 




CALL 


3 + 1 




MARK 


"14",C_SETAX 




Lr 






LWL 


XD of index-name 


CALL 


3 + 2 
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5.5.12.5 OCCURS DEPENDING 

A table called the Variable Array Table, VAT, is generated 
for each array that contains an OCCURS DEPENDING item. 

The format of VAT is : 





1 
5 


1 

4 





^1 


max occurs of level 1 


1 


°2 


max occurs of level 2 


2 


°3 


max occurs of level 3 


3 


elementary length of level^^ 


4 


elementary length of level2 


5 


elementary length of level2 



where 



Djj = occurs depending level indicator 

max occurs of level n = maximum occurrence niamber 
specified for that level. For example, if 
OCCURS FROM 1 TO 28 TIMES then the maximum 
occurrence is 28. 

elementary length of level = the sum of physical 

byte length of every elementary items for that 
level. 
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- Data-name in variable array 

A call to C_VAR is generated for each reference to -variable 
data-name . 

MARK "14",C_VAR 

LWL DD of variable item 

LWL DD of occurs depending in binary 

LWL VAT 

LWL dummy DD 

CALL 3+4 

- Index-name in variable array 

A call C_VARX is generated for each reference to an index- 
name that refers to variable array. 

MARK "14",C_VARX 

LWL DD of variable item 

LWL DD occurs depending in binary 

LWL VAT 

LWL XD of index-name 

CALL 3+4 

For instance, if an array is described as: 

01 A. 

02 B PIC X(3) . 
02 C. 

03 D PIC X(5) 
03 E OCCURS 5. 
04 F PIC X(2) . 
04 G OCCURS 3 PIC X{2). 
04 H OCCURS 4. 
05 I PIC X(5) . 
05 J OCCURS 2 PIC X(2). 
05 K. 

06 L OCCURS 2 TO 8 DEPENDING ON Z. 
07 M PIC X(8) . 
07 N. 

08 O PIC X(2) . 
08 P PIC X(3) . 

then all data items except B are considered variable since 
the length or/and the definition address is/are altered 
according to the current value of Z. 
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The array A's VAT is: 



word 
1 
2 
3 
4 
5 






5 





4 


1 


8 


- 2 + (2*3) = 8 


5 + (2*2) = 9 


8 + 2 + 3 = 13 



from E 
from H 
from L 
from F & G 
from I & J 

from M, O & P 



and a reference to J produces a call to C_VAR as: 



where 



MARK 






"14 


H 


,C VAR 




LWL 






8000 




DD of variable J 


LWL 






8700 




DD of variable Z in binary 


LWL 






B200 




VAT 


LWL 






9C00 




dummy DD 


CALL 






4 






(8000) 


= 


0002 


) 


DD of J 




(8001) 


= 


7403 


J 






(8002) 


= 


3 


^ 




# of dimensions 


(8003) 


.= 


4^°10 \ 


ASD of J 


length of levelj^ 


(8004) 


=r 


11^10 






length of level2 


(8005) 


= 


2 


J 






length of level^ 


(8700) 


= 


8004 


\. 


DD of Z 




(8701) 


= 


7A50 


f 






(7A50) 


= 


0003 






contents of 


Z 



(B200) - as described for array A. 

C_VAR performs following calculations: 

(9C00) = 0002 from the first word of J*s DD 

(9C01) = 7403 

(9C02) = 3 

(9C03) = 148io 

(9C04) = 35io 

(9C05) = 2 
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5.5.13 ANS Debugging 

An object-time switch is used to activate the debug declaratives. 

The sv/itch is tested by each of debugging routines and if not. set, 

following calls are treated as a non- functional - 

5.5.13.1 Procedure-name 

Case 1 PERFORM - immediately before the 'perform* of 

procedure-name 

MARK "14",C_DBGSU 

LWL DD of DEBUG-ITEM item 

LWL debug attribute 

LWL Line nximber 

CALL 3+3 

debug attribute = 

Bits 7-4=1 PERFORM LOOP 
Bits 3-0 = 10 

Case 2 ALTER - immediately after the execution of ALTER 

MARK "14",C_DBGSU 

LWL DD of DEBUG-ITEM item 

LV7L debug attribute 

LWL Line number 

LWL symbolic string of ALTERED procedure, 

LWL symbolic string of ALTERED procedure- 

CALL 3+5 

t 

perform debugging declarative 

4- 
debug attribute is 

Bits 7-4 = second symbolic string to 

DEBUG-CONTENTS 

Bits 3-0 = 2 number of symbolic string 

arguments 
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Case 3 


USE pi 


rocedure 




MARK 


"14",C_DBGSU 




LWL 


DD of DEBUG-ITEM item 




LWL 


debug attribute 




LWL 


Line number 




LWL 


symbolic string of USE procedure 




HALT. 3 + 4 

t 

perform debugging declarative 
debug attribute is 



Bits 7-4 = 2 USE PROCEDURE ■':^ 



I ■■' 



Bits 3-0 = 1 number of symbolic arguments 

Case 4 At the program entry - immediately before the first 
non-declarative procedure-name definition. 
MARK " 14 " , C_DBGSU 
LWL DD of DEBUG-ITEM item 
LWL debug attribute 
IjVIL Line number 

CALL 3+3 
debug attribute is 

Bits 7-4 = 3 START PROGRAM '( -^ ^ '/ 

Bits 3-0 = 

Case 5 GO TO - immediately before GO TO 
MARK "14",C_DBGSU 
laH, DD of DEBUG- ITEM item 

LWL debug attribute 
LWL Line number 
CALL 3+3 
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debug attribute is 

Bits 7-4 = " gr^. " 

Bits 3-0 = 

Case 6 implicit transfer of control to procedure-name 
MARK "14",C_DBGSU 
LWL DD, of DEBUG- ITEM item 
LWL debug attribute 
LWL Line number 
CALL 3+3 
debug attribute = 

Bits 7-4 = 4 FALL THROUGH ■■• /J ' 

Bits 3-0 = 

Case 7 immediately after the procedure -name definition 
MARK "14",C_DBGSU 
LWL DD of DEBUG-ITEM item 
L\\fL debug attribute 
LWL Line number 

U-TL symbolic string of procedure-name 

CALL 3+4 
perform debug declarative 

debug attribute = 

Bits 7-4 = 8 do not clear the DEBUG-ITEM 

item /i.o i '^ 



Bits 3-0 = 1 place symbolic string to 

DEBUG-NAl'lE 



b- 
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Case 8 a reference to procedure-name in the INPUT or 
OUTPUT phrase of a SORT or MERGE statement 
MARK "14",C_DBGSU 
LWL DD of DEBUG- ITEM item 
LWL debug attribute 
LWL Line niomber 
LWL symbolic string of procedure-name 

CALL 3+4 

t 

perform debug declarative 

I 

debug attribute = 

Bits 7-4=5 SORT INPUT 
= 6 SORT OUTPUT 
= 7 MERGE OUTPUT 
Bits 3-0 = 1 symbolic string to 

DEBUG-NAME 
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5.5.13.2 Identifier (data-name) 

MARK "14",C_DBGSU 

I-WL DD of DEBUG- ITEM item 

LWL debug attribute 

LWL line number 

LWL symbolic string of identifier 

CALL , 3+4 

t 

move subscript.to DEBUG-SUB-1 
move subscript, to DEBUG-SUB-2 
move subscript^ to DEBUG-SUB-3 
move identifier to DEBUG-CONTENTS 

•I- 

perform debug declarative 

where debug attribute is 

Bits 7-4=9 identifier, move 

spaces to DEBUG-SUB-1 
thru -3. 
Bits 3-0=1 symbolic string to 
DEBUG-NAME- 
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5.5.13.3 File-name 

other than READ statement 

l^iARK "14",C_DBG£U 

LWL DD of DEBUG- ITEM item 

^ LWL debug attribute 

LWL line number 

LWL symbolic string of file-name 

CALL 3 + 4 

perform debug declarative 

where debug attribute is: m 

Bits 7-4 = 10 f ile-nam.e, move spaces 

to DEBUG-CONTENTS 
Bits 3-0 = 1 symbolic string to 
DEBUG-NAME 
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READ statement 

t 

READ Statement 

I 
t 

move record-area to DEBUG-CONTENTS 

MARK "14", C_DBGS U 

Lt"'!' DD.of DEBUG-ITEM item 

L^'^L debug attribute 

LWL line number 

I-WL symbolic string of file-name 

CALL 3+4 

t 

perform debug declarative 



where debug attribute is 



L 



Bits 7-4 = 11 file-name, DE^'-G-CONTENTS IS already 

initialized with the record just read. 
Bits 3-0 = 1 symbolic string to DEBUG-NMIE 

Note: The symbolic string arguments in calls to C__DBGSU 
are in the form of: 

VSrORD byte count of string (=n) 
V70RD„ 



j, symbolic string 



^°^(n+l)/2 
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5.5.14 IBM Extensions 
5.5.14.1 EXAMINE 

The EXAMINE statement produces a call to C_IlSiSPCT with 
appropriate attributes. See code generation for INSPECT 
"Statements for more information. 



5.5.14.2 EXHIBIT 
LWL 





// 



exhibit attribute 
changed save area] if CHANGED 
exhibit operand attribute, 
DD of id. 



DD of literal, 



symbolic string of id. ] if 



NAMED 



exhibit operand attribute 



n 



DD of id 
n 

DD of literal 



n 



symbolic string of id ] if NAMED 
exhibit operand attribute ., 
"14",C_EXHBT ^ /- 




S^pi::^^ 



where exhibit attribute is 
Bits 1-0 = NAMED 

= 1 CHANGED 

= 2 CHANGED NAMED 
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and exhibit operand attribute is 

Bit 0=0 identifier argument 

= 1 literal argument 
Bits 3-0 '= 15 end of argument 

5.5.14.3 TRACE 

The IBM debugging switch, C_iBOB«, is reserved by the 

compiler and is referenced by CJTRON, CJTROFF and CJTRACE 

routines. 

READY TRACE 

MARK 

CALL 
RESET TRACE 

MARK 

CALL 



"14",C_TR0N 
3 

"14",C TROFF 



- The trace calls are generated at each section or 
paragraph definition point as follows: 

MARK " 14", C_TRACE 

LWL symbolic string of procedure-name 

CALL 3+1 
where symbolic string is in the form of 

DATA byte count of string 

DATA ^ 

symbolic string of procedure-name 



? 



DATA 



J 
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5.5.14.4 TRANSFORM 

MARK "14", C_TRSFRM 
LWL DD of id^ 

LWL DD of id, 

LWL DD of id- 

CALL 3+4 
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5.5.15 Sort/Merge 

The compiler generates an implicit input procedure if the 
SORT statement includes a USING clause. Following sequence 
of code is produced for each of file-name specified. 

OPEN INPUT file-name 

n 

LOOP. READ record-name AT END GO TO CLOSE-FILE. 

n 

RELEASE sort-record FROM record-name - 

GO TO LOOP . 

CLOSE-FILE. CLOSE file-name 

n 

Likewise, if the SORT statement includes a GIVING clause 
instead of OUTPUT PROCEDURE, the compiler produces equiva- 
lent text. 



OPEN OUTPUT file-name 

n 

LOOP. RETURN file-name AT END" GO TO CLOSE-FILE. 

n 

V7RITE sort-record FROM record-name. 
GO TO LOOP. 
CLOSE-FILE. CLOSE file -name 
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5.5.15.1 Sort Control Block, SCB 



word 

1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 
1,2. 



^3 



Logical Unit Number 



A (input procedure) 



A (output procedure) 



A (sort record area) 



record length 



A (composite key area) 



key length 



miscellaneous bit flags 



for internal use 
by SORT 



spare 



A (sort key list) 






XVhere E = AT END' iiidicator 
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5.5.15.2 Sort Key List 



word 
1 
2 
3 
4 



Total number of keys (=n) 


A 


S 


D 


P 


T 


L 


Start 


Address 


It 












• 








key n 



Bit 15 



A = 



Bits 11-8 T = 



Bit 14 S 

Bit 13 D 

Bit 12 P 

Bits 7-0 L 



ASCENDING 

1 DESCENDING 
type 

alphanumeric 



XcsvxJ) 



rC 



numeric. -^vux^-^Lc^; 
signed 



^2- 






leading sign 
sign to separate 
Byte length of key (^255) 
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5.5.15.3 RELEASE 
MARK 
LWL 
LWL 
CALL 
MARK 
LWL 
CALL 
EXIT 



label; 



"14",C_RELSE 

FIT of file to be sorted 

SCB 

3 + 2 

"14",C_SRTRTN 

JET of input procedure 

3 + 1 



C_RELSE constructs a single composit key in the area 
pointed to by word 5 of SCB. The composite key is 
in an ascending logical order. Following transfor- 
mations are required on each key: 

alphanvuneric - none 

numeric - convert to binary and add bias. 
Bias = "8000 0" 

if descending keys, do I'l complement. 

C_SRTRTN places the address of label (immediately . 
after the EXIT instruction) into the address portion 
of pointed to JET. 
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5.5.15.4 RETURN 




MARK 




"14",C_SRTRTN 


LWL 




JET of output procedure 


CALL 




3 + 1 


EXIT 






MARK 




"14",C_RETRN 


LWL 




return attribute 


LWL 




FIT of sorted output file 


LWL 




SCB 


CALL 




3 + 3 


BRA 




label 


move 
BRA 


record- 


-area to INTO id 
next sentence 



label: 



AT END 



i 



imperative statements 



next sentence: 

where return attribute is 

Bit = AT END statements present 
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5 . 5 . 15 . 5 SORT/MERGE 


MARK 


"14",SCBSU 


LWL 


SCB 


LWL 


FIT Of sort file 


LXfL 


input procedure 


LWL 


output procedure 


LWL 


sort key length 


LWL 


sort key list 


CALL 


3+6 


MARK 


"14",C_S0RT 


LWL 


SCB 


CALL 


3 + 1 



5.5.15.6 Input Procedure of Sort 

The input procedure of a sort has following sequence of 

codes, 

entry: GOI sort proc JET 



RELSE 

SRTRTN 

EXIT 



FIT, SCB 

sort proc JET 



SRTEOF 
EXIT 



SCB 
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5.5.15.7 Output Procedure of Sort 

The output procedure of a sort has following sequence of 

codes, 

entry: GOI sort proc JET 



label 



SRTRTN 

RETRN 

BRA 



sort proc JET 
attribute, FIT, SCB 
label 



move record-area to INTO id 
BRA next sentence 



AT END statements 



next sentence: 
SRTRTN 
EXIT 



sort proc JET 



5-9! 



CAUIFORNIA SOFTWARE PRODUCTS. IPJC. 



5.5.16 Report Writer 

Report Writer processing takes place in phases 1 through 5. 
Phase 1 merely processes report file FDs like any other FDs, 
except that report-names specified on REPORTS ARE clauses 
are saved on the Report stack for later processing. The 
Report Writer phase is called when a REPORT SECTION is re- 
cognized by the scan mechanism. This phase is composed of 
two parts: report writer syntax analysis and the report 
writer encode. Each part is essentially a pass over the 
report writer source. The first pass places pertinent in- 
formation out to the DT-Text and/or RW-Text after each line 
is analyzed syntactially. When the end of DATA DIVISION is 
detected, the encoding of RW-Text takes place by making ^a 
pass over the text and producing EP-Text for report writer 
procedures. Phases 4 and 5, in turn, translates Report 
Writer DT-Text into report writer data blocks and report 
writer EP-Text into report writer OP-Text, respectively. 
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5.5.16.1 Operations 

Following table shows the Report Writer operations that occur 
in -response to the various types of source statements: 



Source Statements 
FD.. .REPORT IS 

RD report-name 

CONTROLS ARE 

PAGE, HEADING, etc. 



TYPE 
COLUMN 

SOURCE 

VALUE 
SUM 

02 (-49) . ..LINE 

USE BEFORE REPORTING 

INITIATE report-name 
GENERATE report-name 

GENERATE detail-name 
TERMINATE report-name 



Summary of Compiler Activities 

Store report-names in Report Stack 
for diagnostic purpose. 

. Make an entry in File Stack for 

each report-name 
.. Generate Report Control Blocks 

. Assign control level numbers to 
data names 

. Save line numbers for printer 
carriage spacing on File Stack 

. Significant line nvimbers are placed 
in RGB 

identifies Report Group 

defines the column position in. print 
buffer 

generate 'MOVE report item to print 
buffer' 

generate 'MOVE value to print buffer' 

generate 'ADD operand to sum- 
counter' in a ^'imming routine for the 
group the sum-counter references. 

generate a call to C_RWv'T with RGB 
address and line spacing information 
as arguments. 

generate a 'perform' of declarative 
section at the entry of report group 
routine 

generate a call to C_RWIN with RGB 
address argument 

generate a call to C_RWGN with RGB 
address and a zero DE numbers argu- 
ments. 

generate a call to C_RWGN with RGB 
address and DE number arguments. 

generate a call to C_RWTM with RGB 
address argument. 
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Source Statements Summary of Compiler Activities 

RESET generate 'MOVE to sum-counter* in 

RESET SUM routine for that control 
footing. 

Group Indicate generate a call to C_RWGI with RGB 

address, DE number, and address of 
location to skip over move code. 

Suppress Printing generate 'MOVE 1 to print-switch* 

Next Group generate a call to C_RWWT with RC3 

address and next group information 
as arguments. 

UPON data-name-1 generate 'ADD operand to sum-coionter* 

in the summing routine named by 
data-name-1 . 
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5.5.16.2 Report Writer System Overviev/ 



C RWIN 



C RV7GN 



->- 



C RWTM 



C RV7WT 



-<r 



J^ 



Report 
Control 
Block, 
RGB { for 
each 
report- 
name) 



-^ 



FIT 



Control Break 
Table 



> RH Routine 



> RF Routine 



> PH Routine 



> PF Routine 



> CH Table 



-> CF Table 



n 



Reset table 



Detail flag 
table 



<■ 



C RWGI 



i- ^'Reset major 



i> Reset minor 



» {flag first 



^ flag last 



->J DE-L Routine j 



■^ 




* 

* 


DEn 


Routine 



^ 



CH Major 
Routine 



^ 



CH Minor 
Routine 



r> 



CF Major 
Routine 



CF Minor 
Routine 
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5.5.16.3 Report Control Block, RGB 

A Report Control Block is generated by the compiler for each 
report name and is used to facilitate the report writer 



ctions. 






word 


A (FIT) 




1 


A (Control Break procedure )6v{2 




2 


CODE literal or 




3 


DD (PAGE-COUNTER) 




4 


DD (L;EJrfE::£OUNTER) 




5 


PAGEOirrMIT number or 




6 


HEADING number 




7 


FIRST DETAIL number 




8 


LAST DETAIL number 




9 


FOOTING number 




10 


DD (PRINT-SWITCH) 




11 


A (RH procedure) or 




12 


A (RF procedure) or 




13 


A (PH procedure) or 




14 


A (PF procedure) or 




15 


A (CH Table) or 




16 


A (CF Table) or 




17 


A (Reset Table) ov <P 




18 


A (Detail Flaq Table) 




19 


RCB Flags* 




20 


Next Group Line* 




21 


A (Move Control procedure)ov0 




22 


AC Current Control"^ -(VT, d 


7^ 


-zH- -2^ 


A (DEi procedure) 




1^^ 


A (DE2 procedure) 


* 




• 

* 
• 




2.5 35s-n 


A(DEn procedure) 




^</^+n 








Si — ■ 



n«S 



i^ 



where A ( 
DD( 



) = address of 
) = DD address of 



'are initialized to zero and are modified by report 



writer runtime, 



5-100 



CAUIFORNIA SOFTWARE PRODUCTS, INC. 



5.5.16.4 CH, CF and Reset Tables 

The tables are pointed to by the Report Control Block and 
contains the addresses of the procedures. 




1 



Level number (=n) 



A (procedure) major 



n 



<> 



A (procedure) minor 
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5.5.16.5 Detail Flag Table 

The Detail flag table is pointed to by the Report Control 
Block and contains the flags for all of the detail report 
groups . 





1 



n 



n 



DE-j^ flags 



DEj^ flags 
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.5.16.6 Code Generation 


• INITIATE 




MARK 
LWL 


"14,C RWIN 

RGB of report-name 


CALL 


3+1 


. GENERATE 




- report-name 
MARK 
LWL 


-''14",C_RWGN 

RGB of report-name 


L^® 
CALL 


3 + 2 


- detail-name 
MARK 
LWL 


"14",C_RWGN 

RGB of report-name 


LWL 


DE number 


CALL 


3+2 


• TERMINATE 
MARK 
LWL 


"14",C RWTM 

RGB of report-name 


CALL 


3+1 



SUPPRESS PRINTING 

Mn\7V 1 TO PRINT-SWITCH, 
This statement generates MOVE 1 TU i'KXi.N 
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tljl^p.-rd' ^/O^ hfje^jJlMj 

X O^-n H^ji'-^jJ^ ^h^ ^<iijhz> uzf f^-^ . C^TM-^^ 

0^71 ~ tit-<i.eJ^ ^v^xJ^Vf '^^'^Z C'-^-^'Xi^ / ) 






At the beginning of report group with relative 
line body. 

"14,C RWGR 



MARK 
LWL 
LWL 
call 

GROUP INDICATE 
MARK 
LWL 
LWL 
CALL 



RGB of report group 
Sum 05- relative lines 
3 + 2 

"14",C_RWGI 

RGB of report ^^oup 

DD of GROUP INDICATE 



MARK "14" ,C^BMWt t^^ 






^ 



•S^-^ 







^LCC 






LWL 
LWL 
••' LW-L> - 



^ 



RGB of report group ^'^^^^z^ ^M-t-i-^ e^^r 
attribute 



advancing line #] 
3+3 [+1] 



[LWL 
GALL 
attribute is 

Bit = integer <i^<2,ac^«|y<x_£i. 

1 = NEXT GS^»P fA^S 

2 = PLUS 



rr 






'"v;te^ <y^|v<.c^ 



Lvou 
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